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PRODUCT CODE: 
PRODUCT NAME: 
DATE CREATED: 
MAINTAINER: 
AUTHOR: 



IDENTIFICATION 

AC-F627E-MC 

CKKUAEO 11/24/44 USI MAP 
JANUARY, 1982 
DIAGNOSTIC ENGINEERING 
DAN MILLEVILLE 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSl/MES NO RESPONSIBILITY 
FOR AfJY ERRORS THAT MAY APPEAR IN THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH IN'IUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT Aj MA^ OTHERWISE RE PROVIDED IN WRITING BY DIGITAL. 

DI6ITA', EOUIP^.tNT CORPORATION ASSUMES NO RESPONf iB.LITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT li NOT SUPPLIED BY 
DIGITAL. 

COPYRIGHT (C) 1979, 1982 BY DIGITAL FGJiPntNT CORPORATION 
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HISTORY SECTION 



CKKUUO WAS RELEASFD OCTOBER. 1979 
CKKUABO WAS RELEASti: OCTOBER, 1980 
CKKUACO WAS RELEASED APRIL, 1981 



LKKUADO WAS RELEASED OCTOBER, 1981 > 



CKKUAuO WAS RELEASED JANUARY, 1982 > 



INITIAL RELEASE 

ADDK'ON OF UNI8US MEMORY TEST 

TESTING OF 11/2'* M/iP, 11/24 WITH UNI8US 

MEMORY ONLY, I POWER MONITOR BIT CHECK. 

SETUP OF SOFTWARE/HARDWARE SWR ADDRESS 

WAS ADDED TO STARTUP CODE. 

WHEN SELECTED, THE OPTIONAL CACHE TESTS 

NOW RUN CORRECTLY. 

THE LMA TEST (11/24 ONLY) WAS MODIFIED TO 

DO A MORE THOROUGH JOB OF CHECKING THE 

ADDRESS LINES. 
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1. 



ABSTRACT 

THIS PROGRAM IS DESIGNED TO BE RUN ON A PDP 11/24 OR 11/44 ON 
WHICH THE CPU, CACHE (IF APPLICABLE), AND MEMORY MANAGEMENT 
DIAGNOSTIC PROGRAMS HAVE BEEN RUN. THE PROGRAM WILL DETECT ALL 
ERRORS THAT ORIGINATE WITH THE MAP BOX AND PROVIDE LOOPING 
CAPABILITIES SO THAT THE FIELD SERVICE ENGINEER CAN VERIFY 
THE FAILURES. THERE MAY BE SOME CASES, SUCH AS THE CACHE 
REGISTER DATA PATH, AND CACHE MEMORY DATA PATH, WHERE 
INTERACTION BETWEEN MODULES PROHIBITS CLOSE ISOLATION, BUT 
THE FAILING FUNCTION WILL BE CALLED OUT SO THE FIELD SERVICE 
ENGINEER CAN COMPLETE THE ISOLATION PROCESS. 

IF THE PROGRAM CATCHES AN ERHOR IN AN EARLY TEST AND IS ALLOWED 
TO CONTINUE RUNNING THROUGH THE LATER TESTS THE ERROR INDICATIONS 
FROM THOSE LATER TESTS MAY BE INVALID. THIS IS DUE TO THE STRUCTURE 
OF THE PROGRAM, WHICH ASSUMES THAT ALL AREAS TESTED ?R10k TO THE 
CURRENT TEST ARE FUNCTIONING PROPERLY. 

THE ERROR TYPE OUTS WILL BE IN TABLE FORMAT, WITH A MESSAGE INDICATING 

THE CLASS OF ERROR, A HEADER IDENTIFYING EACH COLUMN AND A REPORT OF 
ALL PERTINENT DATA. WHEN THE TEST CAN PRODUCE MORE THAN ONE ERROR 
CONDITION, A SUMMARY OF ERRORS WILL BE GIVEN AT THE END OF THAT TEST 
CONSISTING OF: THE LOGICAL 'AND' AND 'OR' OF THE DATA PREVIOUSLY 
REPORTED AND THE NUMBER OF ERRORS W THIS TEST. (SEE SECTION 6.3 FOR 
AN EXAMPLE OF THE ERROR TYPEOUTS.) 
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126 2. REQUIREMENTS 

127 

128 2.1 EQUIPMENT 

130 THE 8ASIC PDP-11 /2A OR AA COMPUTER, INCLUDING THE CPU, CACHE 

131 (11/44 CNLV), MEMORY MANAGEMENT, AND AN lA-30 OR EQUIVALENT DEVICE 

132 FOR ERROR MESSAGES. 
133 

13^ 2.2 STORAGE 

136 THIS PROGRAM WILL REQUIRE 8K TO LOAD BUT WILL UTILIZE ALL 

137 EXISTING CORE FOR A DUAL ADDRESSING TEST OF MEMORY 

138 FROM THE UNI8US, 
139 

140 2.3 PRELIMINARY PROGRAMS 

1^2 THE CPU, CACHE (IF APPLICABLE), AND MEMORY MANAGEMENT 

143 DIAGNOSTICS SHOULD BE RUN BEFORE THIS PROGRAM. THE MEMORY 

1^^ DIAGNOSTIC SHOULD AT LEAST MAKE A QUICK VERIFY OF THE AREA 

1*^5 OF MEMORY THIS PROGRAM WILL LOAD AND RUN IN. 
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1A6 3. LOADING PftOCLD^JRE 
U7 

1A8 3.1 METHOD. 
149 

150 THIS PROGRAM CAN BE LOADED FROM ANY DEVICE THAT IS 

151 SUPPORTED BY XXt>P AND SHOULD BE LOADED US.iNG THE XXDP 

152 PROCEDURE FOR THAT DEVICE. 
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153 A. STARTING PROCEDURE 

155 ^J STARTING ADDRESS 

157 PROGRAM STARTS AT ADDRESS 200 

159 A. 2 PROGRAM AND/OR OPERATOR ACTION 
160 

161 THE PROGRAM WILL IDENTIFY ITSELF. IF CPL IS AN 11/44, PROGRAM 

16g WILL PROCEED WITH TESTING. IF CPU IS AN 11/24, AND LOCATION 176 

163 CONTAINS ZERO (SUCH AS JUST AFTER LOADING), PROGRAM WILL PROMPT 

164 FOR A SWITCH REGISTER INPUT. IF NONE IS REQUIRED, ENTER <CR>. 

165 If YOU DO SO, PROGRAM WILL DEPOSIT A '1" IN LOCATION 176 (MEANINGLESS 

166 UNLESS BIT 8 IS ALSO SET) SO THAT SUBSEQUENT RUNNING OF THE PROGRAM 

167 WILL NOT RESULT IN THE SAME REQUEST, If MANUFACTURING IS RUNNING 

168 THIS PROGRAM ON AN 11/24 WITH UNIBUS MEMORY ONlv (NO MAIN MEMORY), 

169 ENTER A NUMBER WITH AT LEAST BIT 11 SET (SWR=4000), THIS WILL KEY 

170 THE PROGRAM TO TEST THE 11/24 IN THAT CONFIGURATION. 

172 4,3 SPECIAL STARTING PROCEDURE 

174 IF IT APPEARS THAT THE CACHE IS CAUSING SOME TROUBLE AND 

175 YOU STILL WANT TO RUN THIS PROGRAM, IT IS POSSIBLE TO RUN 

176 WITH THE CACHE DISABLED. SIMPLY LOAD THE CACHE CONTROL 

177 REGISTER (17777746) WITH THE DESIRED NUMBER. THEN LOAD 
1^8 THE PC (17777707) WITH THE STARTING ADDRESS (200) AND 

179 PR^SS "CONTINUE". THE PROGRAM WILL NOW RUN NORMALLY EXCEPT 

180 THAT CERTAIN TESTS WILL BE SKIPPED SINCE THE CACHE IS DISABLED, 
j81 THIS FACT IS INDICATED IN THE ABSTRACT OF EACH TEST THAT 

182 CHECKS THE CACHE CONTROL REGISTER. 

\li DEFINITION OF THE BITS IN THE CACHE CONTROL REGISTER: 

185 BITOO -DISABLE TRAPS 

186 BIT02 -FORCE HISS ON READ, WHERE ADDRESS BIT 12 IS 

187 8IT03 -FORCE MISS ON READ, WHERE ADDRESS BIT 12 IS 1 

188 BIT09 -UNCONDITIONAL CACHE BYPASS 
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2^S 
:41 
242 
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244 



5. 

5.1 



OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 



5.2 



SW15 




SW14 




SW13 




SW12 




SW11 




SW10 




SW09 




SU08 




SW07 




SW06 





SW05 



1 = 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TVPEOUTS 

INHIBIT TRACE TRAP 

SET WHEN RUNNING AN 11/24 WITH NO MAIN MEMORY 

AND ONLY UNI8US MEMORY 

BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<05;00> 

INHIBIT MULTIPLE ERROR TYPE OUTS 

SELECT CACHc TESTS. THIS IS USED FOR 

HF6. QUICK VERIFY STATION AND CAN BE SELECTED 

BY APT SCRIPTING. THESE TESTS ASSUME THAT 

ALL MODULES EXCEPT UBT MODULE ARE KNOWN GOOD. 

SELECT UNIBUS MEMOf^Y TESTS 

SET WHEN A WINDOW EXISTS (SOME UBMAP JUMPERS CUT). AND 

UNIBUS MEMORY OCCUPIES THE ENTIRE WINDOW ADDRESS AREA. 



SUB-ROUTINE ABSTRACTS 

ALL SUBROUTINE ABSTRACTS APPEAR IN THE CODE BEFORE THEIR 
EXPANSION AND IN THE DOCUMENT THAT IMMEDIATELY FOLLOWS THIS. 
BELOW IS A LIST OF THE SUBROUTINE TITLES. 

5.2.1 MACRO LIBRARY SUBROUTINES (FOUND IN MOST PROGRAMS) (SOME IN THIS SOURCE) 

SCOPE HANDLER ROUTINE 

ERROR HANDLEP ROUTINE 

ERROR MESSAGE TYPE OUT ROUTINE 

CONVERT 16-BIT VIRTUAL ADDRESSES TO 22-BIT PHYSICAL ADDRESSES 

SAVE AND RESTORE R0-R5 ROUTINES 

TYPE ROUTINE 

BINARY TO OCTAL (ASCII) AND TYPE 

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

TRAP DECODER 

POWER DOWN AND UP ROUTINES 

DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 

END OF PASS ROUTINE 

5.2.2 SUBROUTINES UNIQUE TO THIS PROGRAM 

SUBROUTINE TO TURN OFF AND SAVE T-BIT 

SUBROUTINE TO RESTORE T-BIT TO ITS PREVIOUS CONDITION 

SUBROUTINE TO CLEAR ALL OF THE MAP REGISTERS 

SUBROUTINE TO EXTRACT MAP ADDRESS FROM PAR ''ONTENTS 

SUBROUTINE TO DETERMINE 11/24 WITH UNIBUS .A ONLY B CHECK LMA'S IF SO 

5.2.3 TRAP AND At3CRT HANDLER ROUTINES 

CPU TRAP HANDLER ROUTINE 

CACHE TRAPS AND ABORTS HANDLER ROUTINE 

MEMORY MANAGEMENT TRAPS AND ABORTS H^V^DLER ROUTINE 
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2^5 

246 

247 

2A8 

iiU9 

250 

251 

252 

253 

25A 

255 

256 

257 

258 

259 

260 

261 

2o2 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

287 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 



5.3 RUNNING UNDER APT 



THE EXECUTION TIMES PROVIDED IN THE APT SCRIPT THAT FOLLOWS 

ARE FOR EXECUTION WITH A 11/44 PROCESSOR, CACHE, 

16K CORE MEMORY, AND 300 BAUD. 

THE FOLLOWING IS A PROGRAM LOAD FILE USED BY APT: 

1. F TABLE 'A* IS USED FOR APT DUMP MODE. 

A. IN ADDITION TO NORMAL CPU DIAGNOSTIC TESTS, THIS 

TABLE WILL SELECT THE OPTIONAL CACHE TESTS, ($SWRE6=100). 

2. E TABLE 'B* IS USED FOR APT QV MODE WHILE RUNNING ON A 
MANUFACTURING QV STATION. IT ACCOMPLISHES WHAT ETA6LE 
'A' DOES BUT ADDITIONALLY SUPRESSES TYP£0UTS.($ENVM=240) 

3. ETA8LE 'C IS USED FOR APT QV OR RUNTIME MODES WHILE 
RUNNING ON SYSTEM: OTHER THAN MFG. QV STATIONS. THIS 
TABLE DESELECTS THE OPTIONAL CACHE TESTS. 

4. ETA8LE 'D' IS USED BY MANUFACTURING TO RUN AN 11/24 UNDER 
APT WITH UNIBUS MEMORY AND NO MAIN MEMORY, AND BECAUSE OF 
NO CACHE IN Af! 11/24, DESELECTS THE OPTIONAL CACHE TESTS. 



1ST PASS 
RUN TIME 
10 



l.ONGESV 
TEST TIME 
5 



ADDITIONAL 
RUN TIME 




E-MODE/S-MODE 
($ENVM/$ENV) 

SWITCH REGISTER 1 
(SSWREG) 

SWITCH REGISTER 2 
CPU TYPE/OPTIONS 
MEMORY MAP CODE 1 
MEilORY MAP CODE 2 
MEMORY HAP CODE 3 
MEMORY MAP CODE 4 
BUS PRIORITY/INTERRUPT 
BUS PRIORITY/INTERRUPT 
BASE ADDRESS CODE 
DEVICE MAP CODE 
CTLR. SPECIFIC WORD 1 
CTLR, SPECIFIC WORD 2 
DEVICE DESCRIPTOR WORD 
DEVICE DESCRIPTOR WORD 
DEVICE DESCRIPTOR WORD 




1 
2 



E TABLES 



A B C 

000/000 340/001 240/001 



DEVICE DESCRi'^TOR WORD 15 



000000 

00/0000 

000/0000 

000/0000 

OOQ/0000 

000/0000 

0000 

0000 

000000 

000000 

OOOQOQ 

OOOOQQ 

^77777 

^77777 

UOOOOO 

THROUGH 
000000 



OCOOOO 

00/0000 

000/0000 

000/0000 

000/0000 

000/0000 

0000 

owooo 

000000 

\77777 
000000 



oooooo 

00/0000 
000/0000 
QOO/QOOO 
000/0000 
000/0000 
0001 
101 




\77777 
OOOOOO 



D 

240/001 



0001 00 0001 00 OOOOOO 004000 



OOOOOO 
00/0000 
000/0000 
000/0000 
000/0000 
000/0000 
0000 
0000 
OOOOOO 
100000 




\77777 
OOOOOO 



OOOOOO OOOOOO OOOOOO 
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299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

511 

312 

313 

3U 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 



MACRO M1113 


11 


-JAN-82 


11:27 


PAGE 


K 1 

n 


6. 




ERRORS 








6.1 




ERROR f 


■;alts and description 



SEQUENCE 10 



6.2 



WHEN AN ERROR IS DETECTED AN 'ERROR' CEMT) 
INSTRUCTION IS EXECUTED AND THE 'ERROR HANDLER ROUTINE* 
CHECKS THE SWITCH REGISTER FOR MODE SELECTED, 
THF. PROGRAM WILL: 

SW15=1 

SW13=1 

SW10=1 

SW9=1 



HALT ON ERROR 
INHIBIT ERROR TYPE 
RING BELL ON ERROR 
LOOP ON ERROR 



TC 



OUT 



if 
If 
IF 



ERROR RECOVERY 



6.3 



IF SW09=1, THE PROGRAM WILL LOOP BACK TO 

THE POINT WHERE THE INSTRUCTION THAT CAUSED THE ERROR WAS 

EXECUTED, WITHOUT ALLOWING ANY OF THE CONDITIONS TO CHANGE. 

THIS WILL PROVIDE THE TIGHTEST POSSIBLE SCOPE LOOP. 

IF SW09sO, EACH ERROR WILL BE REPORTED AND 

LOGGED AND, AT THE END OF EACH TEST, A SUMMARY OF ALL ERRORS 

OCCURRING IN THAT TEST WILL BE PROVIDED. THE SUMMARY 

CONSISTS OF THE LOGICAL AND AND OR OF THE ADDRESS AND/OR 

DATA THAT WAS WRONG. 

IF THE POWER MONITOR BIT ERROR IS CALLED, YOU MUST CORRECT THE POWER 
SUPPLY OR CPU ERROR REGISTER PROBLEM BEFORE YOU CAN RELY ON THE 
RESULTS OF THIS DIAGNOSTIC. THE ERROR CAN BE CALLED AT 1 OF 2 
PLACES - 1) IN THE SCOPE ROUTINE EXECUTED AT THE BEGINNING OF EACH 
TEST, AND 2) IN AN ERROR CALL IN CASE BIT BECOMES SET AFTER THE SCOPE 
IF THE BIT IS CAUGHT IN THE ERROR ROUTINE, *TWO* ERRORS WILL CALL - 
1) POWER MONITOR BIl ERROR WILL CALL FIRST TO ALERT YOU TO THE 
POSSIBILITY THE PROBLEM COULD BE CAUSED BY THE OUT-OF-SPEC POWER 
SUPPLY, AND T'*EN THE ERROR THAT WAS TO CALL. 

SAMPLE ERROR TYPE OUTS 

SEE *'$ERRT8:" FOR SAMPLE ERROR TYPEOUTS. 
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335 

336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 



6.3.1 MULTIPLE TYPE ERRORS: AN EXAMPLE: 

THE FOLLOWING REGISTERS TIMED OUT WHEN REFERENCED 
REG. ADR TESTNO ERRORPC 
170210 000001 015226 
170212 000001 015232 



■ 
1 

1 
t 


1 
1 

TO 
1 

t 


t 
1 

t 
1 


170372 
170374 
170376 


000001 
000001 
000001 


015232 
015232 
015232 


SUMMARY 

REGADRS 

"OR" 

1 70376 


OF f^A? 
REGADRS 
"AND" 
170210 


REGISTERS THAT TIMED OUT ON READ 

TERRORS TESTNO ERRORPC 
32 000001 010530 
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35A 
355 
356 
357 
358 
359 
360 
361 
362 



7. RESTRICTIONS 

7.1 STARTING RESTRICTIONS 
NONE 

7.2 OPERATING RESTRICTIONS 
NONE 
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563 

3r.A 

36 S 

366 

367 

368 

369 

370 

371 

372 

375 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

38A 

385 

386 

387 

3d8 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 



8. MISCELLANEOUS 

8.1 EXECUTiON TIME 

THE RUN TIME FOR ANY PASS IS APPROXIMATELV 3 SECONDS. 

8.2 ADDRESS GENERATION IN THE 'f -11/44 

THE FOLLOWING IS AN EXAMPLE OF HOW A MEMORY ADDRESS 
IS GENERATED BY THE UNIBUS MAP. THIS ASSUMES THAT 
IhE ADDRESS ORIGINATES IN THE CPU BUT THE PROCESS CAN 
APPLY TO ANY UNIBUS ADDRtSS. STARTING AT LINE C2. 



A. VIRTUAL ADDRESS 

A1. P.A.R. PA6[: NUMBER (0-7) 

A2. OFF.STT (FROM VIRTUAL ADDRESS) 



15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 
15 14 13 

12 11 10 09 08 07 06 05 04 03 02 01 00 



8. P-A.R»[PAGE NO. 3 + 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 

C. PHYS ADDRS (A2+S) 21 20 19 18 17 16 15 14 13 12 iri0^09"o8"oror05"orororor00 
CI. 17XXXXXX=> U.S. ADR, 21 20 19 18 

C2. MAPPING RE6.no. (0-36) 17 16 15 14 13 

C3. OFFSET 12 11 10 09 08 07 06 05 04 03 02 01 00 

D. MAP REG-TNO.-I + 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 

E, PHYs ADDR (C3+D) 21 20 19 i8'i7 iriri4"iri2~irTo"oro3"ororororororoi"^^ 

DESCRIPTION OF LINES: 

A; VIRTUAL ADDRESS (16 BITS) 

Al: UPPER 3 BIT;i OF VIRTUAL ADDRESS. USED TO 

SELECT A PAGE ADDRESS REGISTER (PAR) 
A2: LOWER 13 BITS OF VIRTUAL ADDRESS, ADDED TO 
SELECTED PAR 

B: PAGC ADDRESS REGISTER (16 BITS), IN ADDITION PROCESS THIS GETS 
LEFT SHIFTED 6 BITS BEFORE ADDITION TO A2 

C: PHYSICAL ADDRESS CREATED BY MEMORY MANAGEMENT, (22 BITS) 

CI: IF UPPER 4 BITS ARE ALL ONL'S THEN BITS <17:00> GO OU' CN UNIbUS 
C2: IF rt#P RELOCATION IS ENABLED THEN BITS <17:13> SELECT ONE 

OF THc 36 (OCTAL) HAP REGISTERS. 
C3; LOWER 13 BlfS OF UNI5US ADDRESS, ADDED TO SELECTED MA»> REGISTER 

0: MAP REGISTER (22 BITS). ADDED TO BITS <12:00> OF UNIBUS ADDRESS 

E: PHYSICAL ADDRESS GENERATED BY UNIBUS MAP AND SENT TO THE CACHE, 



L 
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15 
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A17 
A18 
A19 
420 
421 



9. 



PROGRA*^ DESCRIPTION 

THE ASSEMBLED LISTING, CKKUAE.SEQ, HAS A PARAGRAPH DESCRIBING 
EACH OF THE TESTS. THE PARAGRAPH WILL INDICATE IF THE TEST IS 
RUN CONDITIONALLY ON THE STATUS ON THE CACHE CONTROL REGISTER. 3 
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1485 



1486 



1487 
1488 



TITLE CKKUAEO 11/24/44 UBI MAP 
^COPYRIGHT (C) JANUARY 1982 
•DIGITAL EQUIPMENT CORP. 
*MAYNARD, MASS. 01754 

•PROGRAM BY DAN P. MILLEVILLE 
* 

*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
•PACKAGE (MAINDEC-11-DZQAC-C5), JAN, 1981. 

OPERATIONAL SWITCH SETTINGS 

USE 



SBTTL 


OPERAT 


* 




* 


SWITCH 


* 




* 


15 


* 


14 


* 


13 


A 


12 


* 


11 


It 


10 


It 


9 


* 


8 


* 


7 


* 


6 


* 


5 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT TRACE TRAP 

INHIBIT TRACE TRAP 

BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<4:0> 

INHIBIT MULTIPLE ERROR TYPEOUTS 

SELECT CACHE-CIS TESTS 

SELECT MEMORY ON UNIBUS TEST 



„J 



CKKUAEO 11/2A/4A UBI MAP 
BASIC DEFINITIONS 



U89 



001100 
001100 
000700 
000600 
104000 
OOOOOA 
177776 
177776 

177772 
177570 
177570 
177546 



000011 
000012 
000015 
000200 

000000 
000001 
000002 
000003 
OOOOOA 
000005 
000006 
000007 
000000 
000001 
000002 
000003 
OOOOOA 
000005 
000006 
000006 
000006 
000006 
000007 

000000 
OOOOAO 
000100 

ooouo 

000200 
Q002AO 
000300 
000340 

100000 
040000 
020000 
010000 
004000 
002000 
001000 
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.SSTTL BASIC DEFINITIONS 

;*INITIAL ADDRESS OF THE STACK POINTER *** 



1100 

STACK 

STACK-200 

STACK-.300 

ERR0R=EHT 

SCOPE=IOT 

177776 

PSW=PS 

177774 

\77772 

177570 

177570 

177546 

;*MISCELLANEOUS 

HT= 11 

LF= 12 

CR= 15 

CRLF= 200 
♦GENERAL PURPOSE 



STACK= 
KERSTK= 
SUPSTK= 
USESTK= 



PS= 

STKL«T= 

PIRQ= 

DSWR= 

DDISP= 

LKS= 



;FIRST ADDRESS OF 
; KERNEL STACK 
.•SUPERVISOR STACK 
;USER STACK 



1100 *** 
THE STACK 



;;PROCESS0R STATUS WORD 



ftO= 
R1 = 
R2= 
R3= 
R4= 
R5= 
R6= 
R7= 



SP= 



PC= 



xo 
XI 

X2 

X3 

X4 

X5 

X6 

%7 

R10=R0 

R11=R1 

R12=R2 

R13=R3 

R14=R4 

R15=R5 

X6 

KSP=SP 

SSP=SP 

USP-SP 

X7 



;; STACK LIMIT REGISTER 
;; PROGRAM INTERRUPT REQUEST REGISTER 
;;HARDWARE SWITCH REGISTER 
; .-HARDWARE DISPLAY REGISTER 
;;LINE CLOCK (KW11-L) STATUS REGISTER 
DEFINITIONS 

CODE FOR HORIZONTAL TAB 

CODE LINE FEED 

CODE CARRIAGE RETURN 
-.CODE FOR CARRIAGE RETURN-LINE FEED 
REGISTER DEFINITIONS 

GENERAL REGISTER 

GENERAL REGISTER 

GENERAL REGISTER 

GENERAL REGISTER 

GENERAL REGISTER 

GENERAL REGISTER 

GENERAL REGISTER 

GENERAL REGISTER 



.'♦PRIORITY LEVEL 



PRO= 
PR1 = 
PR2= 
PR3= 
PR4= 
PR5= 
PR6= 
9^7^ 





40 

100 

140 

200 

340 



; STACK POINTER 



;; PROGRAM COUNTER 
DEFINITIONS 

;PRIORITY LEVEL 

.-PRIORITY LEVEL 1 

.•PRIORITY LEVEL 2 

.'PRIORITY LEVEL 3 

.'PRIORITY LEVEL 4 

;PRIORITY LEVEL 5 

.'PRIORITY LEVEL 6 

PRIORITY LEVEL 7 



SW15= 
SW14= 
SW13= 
SW12= 
SW1I = 
SW10= 
SW09= 



SWITCH REGISTER** SWlTtA DEFINITIONS 



100000 

40000 

20000 

10000 

4000 

2000 

1000 



_j 



CKKUAEO 11/24/A4 U81 MAP 
BASIC DEFINITIONS 

000400 
000200 
000100 
OOOOAO 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
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SEQUENCE 17 



SW08= 
SW07= 
SW06= 
SW05= 
SW04= 
SW03= 
SW02= 
SW01 = 
SW00= 



;*DATA 
eiT15= 
BITUr 
BJT13= 
BiT12= 
BIT11 = 
BIT10= 
BIT09= 
BJT08= 
BIT07= 
BiT06^ 
BIT05= 
BJT04= 
BIT03= 
BJT02= 
BIT01= 
BJTOO= 



;*BASJC 
ERRVEC= 
RESV£C= 
TBITVEC 
TRTVEC= 
BPTVEC= 
IOTVEC= 
PWRVEC= 
E«TyEC= 
TR/'^VEC 

TKVt:C=: 



400 

200 

100 

40 

20 

10 

4 

2 

1 

SW9=SU09 

SW8=SU08 

SW7=SW07 

SU6=SW06 

SW5=SW05 

SW4=SW04 

SW3=SW03 

SW2=SW02 

SW1=SW01 

SW0=SU00 
BIT DEFINITIONS 

100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 

BIT9^6IT09 

BITP=BIT08 

BIT7=BIT07 

BIT6=8IT06 

BIT5=BIT05 

BIT4=8IT04 

BIT3-6IT03 

BIT2=BIT02 

BIT1=aiT01 

BITO=6IT0O 

^tPU" TRAP 

4 

10 
=14 

14 

14 

20 

2< 

30 
-34 
60 



(BITOO TO BIT15) 



VECTOR ADDRESSES 

TIME OUT AND OTHER ERRORS 

RESERVED AND ILLEGAL INSTRUCTIONS 

"T" BIT 

TRACE TRAP 

BREAKPOINT TRAP (BPT) 

INPUT/OUTPUT TRAP (lOT) **SCOPE** 

POWER FAIL 

EMULATOR TRAP (EMT) **ERROR** 

*^'TRAP" TRAP 

TTY KEYBOARD VECTOR 



CKKUAEO 11/24/4A UBI MAP 
BASIC DEFINITIONS 

000064 
000100 
000114 
00C240 
000250 

177740 
177?42 
177744 
177746 
177750 
177752 

177760 

177762 

177764 
177766 



177572 
177574 
177576 
172516 
177572 
177574 
177576 
172510 

177600 
177602 
1 77604 
177606 
177610 
177612 
177614 
177616 

1 77620 
1 ?7bll 
M762i^ 
177626 
177630 
1 77632 
177634 
177636 

177640 
177642 
177644 
17/646 
177650 
177652 
177654 
177656 
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SEQUENCE 18 



TPVEC= 64 
LKVEC= 100 
CACHVEC=114 
PIRQVEC=24C 



MMVEC= 

.S8TTL 

LOADRS 

HIADRS 

MEMERR 

CONTRL 

MAINT 

HITMIS 

.SBTTL 

SIZELO 



250 
CACHE 
: 177740 
= 177742 
•■ Mllkk 
■■ 177746 
: 177750 
: 177752 
CPU REGISTER 
^ 177760 



SI2CHI = 177762 



SYSTID 
CPUERR 



177764 
177766 



;TTY PRINTER VECTOR 
;LINE CLOCK (KWII-L) VECTER 
; CACHE ERROR INTERRUPT VECTOR 
;PROGRAM INTERRUPT REQUEST VECTOR 
;MEMORY MANAGEMENT VECTOR 
REGISTER DEFINITIONS 

••LOWER 16 BITS OF ADDRESS THAT CAUSED ERROR 
;UPPER SIX BITS OF ADDRESS THAT CAUSED ERROR 
; CACHE ERROR REGISTER 
;MEMORY CONTROL REGISTER 
;MEMORY MAINTENENCE REGISTER 
;H1T MISS REGISTER 'T* IMPLIES HIT IN CACHE 
DEFINITIONS 

;MEMORY SliZ REGISTER NUMBER TO PUT INTO A PAR 
;T0 GET TO THE LAST 32 WORDS OF MEMORY 

REGISTER, RESERVED FOR FUTURE USE 

ALL ZERO 

REGISTER 

REGISTER HOLDS CONDITION THAT CAUSED 
TO ERRVEC (000004) 



;HIGH SIZE 
; CURRENTLY 
;SYSTEM ID 
;CPU ERROR 
;THE TRAP 



•SBTTL MEMORY MANAGEMENt DEFINITIONS 
;*MEMORY MANAGEMENT STATUS REGISTER ADDRESSES 
MMRO= 177572 
«MR1= 177574 
MMR2= 177576 
MMR3= 17i^516 

SRC^MMRO 

SP.I=HMR1 

S/^2=MMR2 

'iR3=MMR3 
"J" PAGE DESCRIPTOR REGISTERS 

177600 

177602 

177604 

177606 

177610 

177612 

177614 

1/7616 
•f PAGE 



;*USER 

UIPDRO= 

UIPDR1= 

UIPDR2= 

UIPDR3= 

UIPDR4= 

UIPDR5= 

UIPDR6= 

UIPDR7= 

;*USER 

UDPDRO= 

UDPDR1= 

UDPDR2= 

UDPDR3= 

UDPDR4S 

UDPDR5= 

UDPDR6= 

UDPDR7" 

;*USER ' 

UIPAROs 

UIPAR1= 

UIPAR2= 

UIPAR3= 

UIPAR4= 

UIPAR5= 

UIPAR6= 

UIPAR7= 



1776i 

1776i 

1776J 

1776i 

1776 

1776 

1776: 

177636 

•r* PAGE 

177640 

177642 

177644 

1 77646 

177650 

177652 

177654 

177656 



DESCRIPTOR REGISTORS 



ADDRESS REGISTERS 



CKKUAEO n/2A/44 UBI MAP 
MEMO "' MANAGEMENT DEFINITIONS 



1 77660 
177662 
17766A 
1 77666 
177670 
177672 
177674 
177676 

172200 
172202 
17220A 
172206 
1.72210 
172212 
1722U 
172216 

172220 
172222 
172224 
172226 
172230 
172232 
172234 
172236 

172240 
172242 
172244 
172246 
172250 
172252 
172254 
172256 

172260 
1 722t2 
17226^ 
172266 
172270 
1 72272 
17227^, 
172276 

172300 
1 72502 
172304 
1 72306 
172310 
172312 
172314 
172316 

172320 
1 72322 
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SEQUENCE 19 



•*USEft "D*' PAGE 
UDPARO= 177660 



ADDRESS REGISTERS 



UDPARls 177662 
UDPAR2= 177664 
UDPAR3= 177666 
UDPAR4= 177670 
UDPAR5= 177672 
UDPAR6= 177674 
UDPAR7= 177676 
;*SUPERVJS0R "J" 
SIPDRO= 172200 
SIPDR1= 172202 
SIPDR2= 172204 
SIPDR3= 172206 
SIPDR4= 172210 
SIPDR5= 172212 
SIPDR6= 172214 
SIPDR7= 172216 
;*SUPERVJS0R "D" 
SDPDfiO" 172220 



PAGE DESCRIPTOR REGISTERS 



PAGE DESCRIPTOR RE6ISTb)?S 



^72222 

\7222^ 

1 72226 

X722^Z 

1722:.y 

* 72tSH 

172236 

;*SUPCRVJSOR "I*' PAGE ADDRtSS i^EGiSVPRS 
SIPARO- 172240 

172242 

172244 

172246 

172250 

172252 

172254 

172256 

;*SUPERVJSOR "D'* PAGE ADDRESS REGISTERS 
SDPARO= 172260 
SDPAR1= 172262 
SDPAR2= 172264 
SDPAR3= 172266 
SDPAR4= 172270 
SDPAR5= 172272 
SDPAR6= 172274 
SDPAR7= 172276 
;*KERNEL "J" PAGE DESCRIPTOR REGISTERS 



SDPDR1= 
SDPDH2=: 
SDPDR3= 
SDPDR4= 
SDPDR5= 
SDP0R6= 
SDPDR7= 



SIPAR1= 
SJPAR2= 
SJPAR3= 
SJPAR4= 
SJPAR5= 
SIPAR6= 
SIPAR7= 



KIPDR0= 

KIPDRIs 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 172316 

; ♦KERNEL "D" PAGE 

KDPDR0= 172320 

KDPDR1= 172322 



172300 

1 72302 

1 7i 

17 

17 

17 

17 




DESCRIPTUh REGISTERS 



CKKUAEO 11/2A/44 UBI MAP 
MEMORY MANAGEMENT DEFINITIONS 

172324 
172326 
172330 
172332 
1723^4 
172336 

172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 

172360 
172362 
172364 
172366 
172370 

1 iiin 

172374 
172376 



170200 
170202 
170204 
1 70206 
170210 
170212 
170214 
170216 
170220 

1 mil 

1 '0224 
170226 
170230 
1 7<)212 
•\ 70234 
170236 
170240 
170242 
170244 
170246 
170250 
170252 
1 70254 
170256 
1 70260 
1 70262 
1 70264 
170266 
170270 
170272 
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SEQUENCE 20 



KDPDR2= 

KDPDR3= 

KDPDR4= 

KDPDR5= 

KDPDR6= 

KDP0R7= 

;*KERNEL 

KIPARO= 

KIPAR1= 

KIPAR2= 

KJPAR3= 

KIPAR4= 

KJPAR5= 

KIPAR6= 

KIPAR7- 

;*KERNEL 



KDPARO= 

KDPAR1= 

KDPAR2= 

KDPAR3= 

KDPAa4= 

KDPAR5= 

KDPAR6= 

KDPAR7= 

.SBTTL 

;*THE 

;*THE 

MAPLOO 

MAPHOO 

MAPLOl 

MAPHOl 

MAPL02 

MAPH02 

MAPL03 

MAPH03 

MAPL04 

MAPH04 

MAPL05 

MAPH05 

IW106 

MAPH06 

MAPL07 

MAPH07 

MAPLIO 

MAPHIO 

MAPLll 

MAPHll 

MAPLl 

MAPHl 

MAPLl 

MAPHl 

MAPL14 

MAPHl 4 

MAPL15 

MAPHl 5 

MAPLl 6 

MAPHl 6 



172324 
172326 
1 72330 
172332 
172334 
172336 

"i" PAGE 
1 72340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 

•D" PAGE 



ADDRESS REGISTERS 



172360 
172362 
172364 
1 72366 
172370 

1 nm 

172374 
1 llllt 

UNiaus 

LOUER 16 
UPPER 6 



ADDRESS REGISTERS 



70200 
.-t 170202 
= 170204 
= 170206 
= 170210 
= 170212 
= 170214 
= 170216 
= 170220 
= 170222 
= 170224 
= 170226 
= 170230 
= 170252 
= 170234 
= 170236 
= 170240 
= 170242 
= 170244 
= 170246 
= 170250 

= 170 

= 170^,. 

■ 'm 

= 170272 



MAP REGISTER DEFINITIONS 

BITS OF THE MAP REGISTERS ARE LABELED 'MAPLXX 
BITS OF THE HAP REGISTERS ARE LABELED 'MAPHXX* 



CKKUAEO 11/2A/44 U8I MAP 
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UNIBUS MAP REGISTER DEFINITIONS 






1 7027A 


MAPL17 = 170274 




170276 


MAPH17 = 170276 




170300 


MAPL20 = 170300 




170302 


MAPH20 = 170302 




170304 


MAPL21 = 170304 




170306 


MAPH21 = 170306 




170310 


MAPL22 = 170310 




170312 


MAPH22 = 170312 




170314 


MAPL23 = 170314 




170516 


MAPH23 = 170316 




170320 


MAPL24 = 170320 




170320 


MAPH24 = 170320 




170324 


MAPL25 = 170324 




170326 


MAPH25 = 170326 




170330 


MAPL26 = 170330 




170332 


MAPH26 = 170332 




170334 


MAPL27 = 170334 




170336 


MAPH27 = 170336 




170340 


MAPL30 = 170340 




170342 


MAPH30 = 170342 




170344 


MAPL31 = 170344 




1 70346 


MAPH31 = 170346 




170350 


MAPL32 = 170350 




170352 


MAPH32 = 170352 




170354 


MAPL33 = 170354 




170356 


MAPH33 = 170356 




170360 


MAPL34 = 170360 




170362 


MAPH34 = 170362 




170364 


MAPL35 = 170364 




1 70366 


MAPH35 = 170366 




170370 


MAPL36 = 170370 




170372 


MAPH36 = 170372 




1 70374 


MAPL37 = 170374 




170376 


MAPH37 = 170376 




170200 


maplo=maploo 




170202 


MAPH0=MAPH00 




170204 


MAPL1=MAPL01 




170206 


MAPH1=MAPH01 




170210 


MAPl2=MAPL02 




170212 


MAPH2=«APH02 




170214 


MAPL3=MAPL03 




170216 


VnPH3=MAPH03 




170220 


iv\^L4=MAPL0< 




170222 


MAPH45MAPH04 




1/0224 


HAPL5=MAPL05 




170226 


MAPH5=f1APH05 




170230 


MAPL6=MAPL06 




170232 


MAPH6=MAPH06 




1 70234 


MAPL7=^WPL07 




1 70236 


MAPH7=MAPH07 





SEQUENCE 21 



CKKUAEO 11/24/A4 UBI HAP 
TRAP CATCHER 
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SEQUENCE 21 



1A92 



0001 74 
000176 



000000 



000174 
000000 
000000 



00020U 000137 010000 



•SBTTL TRAP CATCHER 

.=0 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A *'.+2,HALT" 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
;*LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 

.=174 
DISPRE6: .WORD ; .-SOFTWARE DISPLAY REGISTER 

SWRE6: .WORD ;;SOFTWARF SWITCH REGISTER 

.SBTTL STARTING ADDRESS(ES) 

JMP S^START ;;v'UMP TO STARTING ADDRESS OF PROGRAM 



CKKUAEO n/24/A4 UBI MAP 


ACT11 HOOKS 




1A94 






00020A 




0000A6 


0000A6 


022024 




000052 


000052 


000000 




000204 
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SEQUENCE 23 



.SBTTL ACT11 HOOKS 

; ;*************************•*********************************♦*** 

;HOOKS REQUIRED 8V ACT11 

$SVPC=. ;SAVE PC 

• =46 

SENDAD ;;1)SET L0C,46 TO ADDRESS OF SENDAD IN -$£0P 

.=52 

.WORD ;;£^SET LOC.52 TO ZERO 

.=$SVPC ;; RESTORE PC 



CKKUAEO 11/2AA4 UBI HAP 
COMMON TAGS 

1A96 



001100 

001100 
001101 
001102 
001104 
001106 
001110 
001112 
001113 
0011U 
001116 
001120 
001122 
001124 
001126 
001130 
001132 
001133 
001134 
001136 
001140 
001142 
001144 
001146 
001150 
001152 
001153 
001154 
001155 
001156 



001160 
001162 
001164 
001166 
001170 
001172 

001174 
001176 
001200 
001202 
001204 
001206 
001210 
001212 
001214 
001216 



001100 



000 

000 

000000 

000000 

000000 

000000 

000 

001 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000 

000 

000000 

177570 

177570 

177560 

177562 

177564 

177566 

000 

002 

012 

000 

000000 

000.^06 
000000 
000000 
000000 
000000 
000000 
000000 
000007 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
OUOOOO 
000000 
207 
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SEQUENCE 24 



;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 



.=1100 



377 



377 



SCMTA6: 




;$PASS: -WOrJD 





STSTNM: .BYTE 





SERFLG: .BYTE 





$ICNT 


.WORD 





SLPADR: .WORD 





SLPERR: .WORD 





SERTTL: .WORC 





SITEMB: .BYTE 





SERMAX: .BYTE 


1 


SERRPC: .WORD 





SGDADR: .WORD 





$6DADR: .WORD 





$GDDAT: .WORD 





SBDDAT: -WORD 







.WORD 







.WORD 





SAUTOB; .BYTE 





SINTAG: .BYTE 







.WORD 





SWR: 


.WORD 


DSWR 


DISPLAY: .WORD 


DDi SP 


$TKS: 


177560 




$TX6; 


177562 




$TPS: 


177564 




$TP8: 


177566 




$NULL 


.BYTE 





$FILL2 


5: .BYTE 


2 


SFILLi 


:: .BYTE 


12 


STPfL( 


5: .BYTE 





SREGAC 


): .WORD 







.REPT 


$CM3 


SREGO 


.WORD 





$REG1 


.WORD 





$RE62 


.WORD 





$RE G3 


.WORD 





$REG4 


.WORD 





$REG5 


.WORD 





.REPT 


7 




$TMPO 


.WORD 





SIMPI 


.WORD 





$TMP2 


.WORD 





$TMP3 


.WORD 





$TMP4 


.WORD 





$TMP5 


.WORD 





$TMP6 


• .WORD 





stime; 


5: 




SESCAI 


>E:0 




$BELL 


' .ASCII 


<207> 



;DPM001 



START OF COMMON TAGS 
CONTAINS PASS COUNT 
CONTAINS THE TEST NUMBER 
CONTAINS ERROR FLAG 
CONTAINS SUBTEST ITERATION COUNT 
CONTAINS SCOPE LOOP ADDRESS 
CONTAINS SCOPE RETURN FOR ERRORS 
CONTAINS TOTAL ERRORS DETECTED 
CONTAINS ITEM CONTROL BYTE 
CONTAINS MAX. ERRORJ PER TEST 
CONTAINS PC OF LAST ERROR INSTRUCTION 
CONTAINS ADDRESS OF 'GOOD* DATA 
CONTAINS ADDRESS OF 'BAD' DATA 
CONTAINS 'GOOD' DATA 
CONTAINS 'BAD' DATA 
RESERVED—NOT TO BE USED 



; .-AUTOMATIC MODE 
;; INTERRUPT MODE 



INDICATOR 
INDICATOR 



ADDRESS OF SWITCH REGISTER 

ADDRESS OF DISPLAY REGISTER 

TTY KBD STATUS 

TTY KBD BUFFER 

TTY PRINTER STATUS REG, ADDRESS 

TTY PRINTER BUFFER REG. ADDRESS 

CONTAINS NULL CHARACTER FOR FILLS 

CONTAINS * OF FILLER CHARACTERS REQUIRED 

INSERT FILL CHARS. AFTER A 'lINE FEED** 

"TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 

CONTAINS THE ADDRESS FROM 

WHICH (SREGO) WAS OBTAINED 



CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 



(($RE6AD)+0) 

(($REGAD)^2) 

((SREGAD)^4) 

(($REGAD)+6) 

(($REGAD)+10) 

(($REGAD)+12) 



USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

MAX. NUMBER OF ITERATIONS 

ESCAPE ON ERROR ADDRESS 

CODE FOR BELL 



CKKUAEO 11/24/4A UBl MAP 


COMMON TAGS 




001222 


077 


001223 


015 


001224 


012 000 


001226 


000000 


001230 


000000 


001232 


000000 000077 


001236 


000000 000077 


001242 


OOUUUO 000077 


001246 


000000 000077 


001252 


000000 


001 254 


000000 


001256 


000000 


001260 


000000 


001262 


000000 


001264 


000000 


001266 


000000 


001270 


000000 


001272 


000000 


001274 


000000 


001276 


000000 


001300 


000000 


001302 


000000 


001304 


000000 


001306 


000000 


001310 


000000 


001312 


000000 


001314 


000000 


001316 


000000 


001320 


000000 


001322 


000000 


001324 


000000 


001326 


000000 


001330 


000000 


001332 


000000 


001334 


000000 


001336 


000000 


001340 


000000 


001342 


000000 


001344 


000000 


001346 


000000 


001350 


000000 


001352 


000000 


001354 


000000 


001356 


000000 


001360 


000000 


001362 


000000 
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SEQUENCE 25 



001364 000200 



SQUES: .ASCII /?/ 
SCRLF: .ASCII <15> 
$LF: .ASCIZ <12> 

• • ********************* W******)V 



PADRSL 


.WORD 





PADRSH 


.WORD 





ADRAND 


.WORD 


0,77 


ADDROR 


' .WORD 


0,77 


DATAND 


.WORD 


0,77 


OATAOR 


.WORD 


0,77 


PATAND 


.WORD 





PATTOR 


.WORD 





LOWfST 


.WORD 





HI6EST 


.WORD 





U8ML0W 


.WORD 





U3MHI : 


• WORD 





MMRLOW 


.WORD 





MMRHI: 


.WORD 





U8RL0W 


' .WORD 





UBRHI : 


.WORD 





BUPWIN 


• .WORD 





LRE6L: 


.WORD 





LREGU: 


.WORD 





LMAH: 


.WORi/ 





LMAL: 


.WORD 





U8M24L 


.WORD 





UBM24U 


.WORD 





IJBM24P 


.WORD 





NUMOFK 


.WORD 





ERRCNT 


.WORD 





CNTR: 


.WORD 





FLAG: 


.WORD 





CPUEXP 


.WORD 





PCPUER 


.WORD 





PPARER 


.WORD 





PCONTR 


.WORD 





PM.MNT 


.WORD 





BADPC: 


.WORD 





OLDPC: 


.WORD 


c 


OLDPS: 


.WORD 





OLDPSW 


.WORD 





PMMfiO: 


.WORD 





PWWl; 


.WORD 





PM«R2: 


.WORD 





RSIZE: 


.WORD 





RETRV: 


.WORD 





NXTTST 


.WORD 






DATA: .WORD 200 



;; QUESTION MARK 

;; CARRIAGE RETURN 

;;LINE FEED 
****************************iit 1^1^*1^* 

HOLDS THE LOWER 16 BITS OF A 22 BIT ADDRESS 

GENERATED FOR TYPE OUT. 

HOLDS THE UPPER 6 BITS OF A 22 BIT ADDRESS 

GENERATED FOR TYPE OUT. 

LOGICAL AND OF ?Mlim ADDRESSES 

LOGICAL OR OF FAIL.iNG ADDRESSES 

LOGICAL AND OF BAD DATA 

LOGICAL OR OF BAD DATA 

LOGICAL AND OF PATTERN LOADED 

LOGICAL OR OF PATTERN LOADED 

HOLDS NUMBER TO PUT IN PAR TO CAUSE THE 

LOWEST USABLE MAP REGISTER TO RESPOND 

HOLDS NUMBER TO PUT IN PAR TO CAUSE THE 

HIGHEST USABLE MAP REGISTER TO RESPOND 

HOLDS NUMBER TO PUT IN PAR TO SIGNAL 1ST 

ADDRESS OF UNIBUS MEMORY 

HOLDS NUMBER TO PUT IN PAR TO SIGNAL LAST 

BLOCK OF 4K OF UNIBUS MFMORY 

HOLDS LOWEST MAP REGISTth NUMBER FROM •LOWEST:' 

HOLDS HIGHEST MAP REGISTER NUMBER FROM 'HIGEST:' 

HOLDS LOWEST MAP REGISTER NUMBER FROM 'UBMLOW:' 

HOLDS HIGHEST MAP REGISTER NUMBER FROM 'UBMHI:* 

HOLDS LOWcST USEABLE PAR OF UPPER WINDOW 

HOLDS I/O PAGE ADDR OF LOW 16 BITS OF 

THE LOWEST USABLE MAP REGISTER 

HOLDS I/O PAGE ADDR OF HIGH 6 BITS OF 

OF THE LOWEST USABLE MAP REGISTER 

LOCATION TO HOLD LMA HIGH REGISTER CONTENTS 

LOCATION TO HOLD LMA LOW REGISTER CONTENTS 

LOCATION USED TO HOLD LMA LOU EXPECTED VALUE 

LOCATION USED TO HOLD LMA HIGH EXPECTED VALUE 

LOCATION USED TO HOLD LMALOW PRELOAD VALUE 

LOCATION TO HOLD NUMBER OF K OF U8 MEMORY 

MULTIPLE ERROR cRROR COUNTER 

AUXILIARY COUNTER 

FLAG TO INDICATE TO LAST PROGRAM PASS N 

HOLDS THE EXPECTED CPU ERROR CODE 

HOLDS RECEIVED CPU ERROR CONDITION 

HOLDS RECEIVED PARITY ERROR CONDITION 

HOLDS CONTENTS OF CONTROL REGISTER 

HOLDS CONTENTS OF MAINTENENCE REGISTER 

HOLDS PC OF INST THAT CAUSED TRAP 

HOLDS THE RETURN ADDRESS AFTER A TRAP 

HOLDS THE OLD PROCESSOR STATUS 

HOLDS OLD PSW FOR TBITRESTORE 

HOLDS CONTENTS OF MMRO AFTER TRAP 

HOLDS CONTENTS OF MMRl AFTER TRAP 

HOLDS CONTENTS OF MMR2 AFTER TRAP 

WILL HOLD P.A.R. DATA FOR TOP OF MEMORY 

RETRY FLAG IN CASE CF PARITY ABORTS 

LOCATION TO HOLD ESCAPE ADDRESS ON 

PARITY ERRORS. 

PATTERN TO BE USED TO LOAD INTO MEMORY 
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SEQUENCE 26 



.SBTTl ERROR POINTER TABLE 



1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1321 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 



001366 

001366 
001370 
001372 
001374 



001376 
001400 
001402 
001404 



001406 
00U10 

001412 
001414 



001416 
00:420 

or 1422 
001424 



001426 
001430 

001432 
001454 



001436 
001440 

001442 
001444 



024160 
030121 
032340 
033641 



024245 
030160 
032352 
033641 



02h317 
030207 

032362 
033641 



024425 
030306 

032376 
03364.-S 



02450S 
030403 

032412 
033653 



024600 
030540 

032450 
033661 



;*THiS TA8LE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

.-♦LOCATION $IT£M8. THIS NUMBER INOKATES WHICH ITEM IN THE TABLE IS PERTINENT. 

;*N0TE1: IF SITEMB IS THt ONLY PERTINENT DATA IS iSERRPC) , 

;*N0TE2; EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 

; POINTS TO THE ERROR MESSAGE 
; POINTS TO THE DATA HEADER 
;POINTS TO THE DATA 
;POINTS TO THE DATA FORMAT 



NOT THE CORRECT CPU TRAP CONDITION THROUGH ERRVEC (^004) 
RECEIVD EXPECTD TESTNO PC AT ABORT 
PCPUER,CPUEXP,$TESTN,8ADPC,0 
0, 0, 0, 



;* 
;* 




EM 
DH 
DT 
DF 




$ERRT8: 
;ITEM 1 


.WORD 
.WORD 
.WORD 
.WORD 


EMI 

DH1 ; 

DTI 

DF1 


;ITEM 


2 


.WORD 
.WORD 
.WORD 
.WORD 


EM2 
DH2 
DT2 
DF1 ; 


;ITEM 


3 


.WORD 
.WORD 


EM3 
DH3 






.WORD 
.WORD 


DT3 ': 
DF1 


;ITEM 


4 


.WORD 
,WORD 


EM4 
DH4 






• WORD 
.WORD 


DT4 ; 
DF4 


;ITEW 


5 


.WORD 
.WORD 


EMS 

DH5 ; 






.WORD 
.WORD 


DT5 ] 
DF5 


;ITEM 


6 


.WORD 
.WORD 


EM6 ; 
DH6 






.WORD 
.WORD 


DT6 ; 
DF6 



UNEXPECTED CPU TRAP THROUGH ERRVEC (^004) 
RECEIVD TESTNO PC AT ABORT 
PCPUER,$TESTN,8ADPC,0 
0, 0, 



MtMORY MANAGEMENT TRAP, MEMORY MANAGEMENT STATUS REGISTERS 
STATUS AUTOI/D VIRTADR 

REGISTR REGISTR RE6ISTR TESTNO PC AT ABORT 
PMMR0,P/iMR1 ,PMMR2,$TESTN,8ADPC,0 
0, 0, 0, 0, 



SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ 
RE6ADRS RE6ADRS 

•*0R" "AND" TERRORS TESTNO ERR PC 
ADDROR,ADRAND.ERRCNT,$TESTN,$ERRPC,0 

2, 2, 1, 0, 6 

SUWIARY OF DUAL ADDRESSING ERRORS ON LOADING MAP REGISTERS 
REGLOAD REGLOAD REGDUAL REGDUAL 

^•QP" "^'AND" "OR" "AND" TERRORS TESTNO 
ADDROR,ADRAND,DATAOR.DATAND,ERRCNT<$TESTN,0 

2, 2, 2, 2, 1, 

SUWARY OF BIT PATTERN FAILURES (N LOWER 16 BITS OF MAP REGISTERS 
W^f!^ !^m^ EXPECTD EXPECTD RECEIVD RECEIVD 

"OR^* "AND'^' "OR" "At^D" ^lOR" "AND" (TERRORS TESTNO 

ADDROR*ADRAND.PAfTOR,PATAND,PArAOR,DA''.\ND,ERRCNT,$TESTN,0 

J, 2, 0, 0, 0, 0, 1, 
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1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
155'! 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
Iboo 
1587 
1588 
1589 
1590 



001446 
001450 

001452 
001454 



001460 
001462 
001464 



001466 
001470 

001472 
001474 



001476 
001 500 
001502 
001504 



001510 
001512 
001514 



001516 
001520 

001522 
001524 



001 5i 
0015; 



I 



001532 
001534 



001536 
001540 

001542 
001544 



024702 
030540 

032430 
033661 



;1TEM 7 



001456 025003 



030727 
032452 
033641 



025155 
030754 

032462 
033671 



025247 
030727 
032452 
033641 



001506 025321 



030727 
032452 
033641 



025525 

030754 

032500 
033677 



025630 
031111 

032516 

033641 



025723 
030754 

032500 
033653 



;ITEM 10 



;ITEM 11 



;JTE« 12 



.WORD 
.WORD 


DH6 


.WORD 
.WORD 


DT6 
DF6 


.WORD 


EMIO 


.WORD 
.WORD 
.WORD 


DHIO 
D710 
DFl 


.WORD 
.WORD 


EMU 
DH11 


.WORD 
.WORD 


DTll 
DF11 


.WORD 
.WORD 
.WORD 
.WORD 


EMI 2 
DHIO 
DT10 
DFl 



;JTEM 13 



.WORD EMI 3 



;JTEM 14 



;JTEM 15 



;JTEM 16 



.WORD 
.WORD 
.WORD 


DHIO 
DT10 
DFl 


.WORD 
.WORD 


EMI 4 
DH11 


.WORD 
.WORD 


DT14 
DF14 


.WORD 
.WORD 


EMI 5 
DH15 


.WORD 

.WORD 


DT15 
DFl 


.WORD 
.WORD 


EMI 6 

DHll 


.WORD 

.WORD 


DT14 
DF5 



;SJi^aRY Or BIT PATTERN FAILURES IN UPPER 6 BITS OF MAP REGISTERS 

;MA?>RE6 MAPREG EXPECTD EXPECTD RECEIVD RECEIVD 

- 'i'R'^' *'AND" "OR" "AND" ^"OR" "AND" TERRORS TESTNO 

•ii:DROR,ADRAND.PATTOR.PATAND,DATAOR,DATAND,ERRCNT,$TESTN,0 
; 2, 2, 0, 0, 6, 0, 1, 

CAN'T GET TO MAIN MEMORY FROM UNIBUS WITH THE MAP OFF 
SO JUMPING TO THE SIZE JUMPER TEST FOR VERIFICATION 
TESTNO ERR PC 
$TESTN,$ERRPC,0 
0, 

SUMMARY OF COUNT PATTERN FAILURES ON THE UNIBUS DATA PATH 
EXPECTD EXPECTD RECEIVD RECEIVD 

"OR" "AND" "OR" "AND" TERRORS TESTNO 
PATTOR,PATAND,DATAOR,DATAND,ERRCrN,$TESTN,0 

0, 0. 0, 0, 1, 



UNIBUS MAP IS RELOCATING WHEN NOT ENABLED 
TESTNO ^R\< PC 
$TESTN,$ERRPC,0 
0, 



CANNOT USE ANY OF THE MAP REGISTERS OR PHYSICAL 
ADDRESS BIT14 IS STUCK LOW, MUST RESTART PROGRAM 
IF YOU DON'T LOOP ON THIS PROBLEM. 
TESTNO ERR PC 
$TESTN,$ERRPC,0 
0, 

SUMMARY OF UNIBUS ADDRESS ERRORS, WITH MAP RELOCATION DISABLED 
EXPECTD EXPECTD RECEIVD RECEIVD 

"OR" "AND" '^W "AND" TERRORS TESTNO 
ADDROR , ADRAND, DATAOR , DATAND , ERRCNT , $TE STN , 

2, 2, 0, 0, 1, 

;MAIN MEMORY TIME OUT OVER THE UNIBUS DID NOT OCCUR PROPERLY. 

; CONDI TN CONDI TN 

;EXPECTD RECEIVD TESTNO ERR PC 

;CPUEXP,PCPUER,$TESTN,$ERRPC,0 

; 0, 0, 0, 

; SUMMARY OF DUAL MAPPING ERRORS 

;EXPECTD EXPECTD RECEIVD RECEIVD 

; 'W "AND" '^'OR" "AND" ^ERRORS TESTNO 

;ADDROR,ADRAND,DATAOR, DATAND, $ERRPC,$TESTN,0 

; 2, 2, 2, 2, 1, 
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1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 



001546 
001550 
001552 
001554 



001556 
001560 
001562 
001564 



001570 
001572 
001574 



001576 
001600 
001602 
001604 



001606 
001610 
001612 
001614 



001616 
001620 
001622 
001624 



001626 
001630 
001632 
001634 



001636 
001640 
001642 
001644 



001646 
001650 
001652 
001654 



026021 
030727 
032''52 
033641 



026051 
030727 
032452 
033641 



001566 0261 50 



030727 
032452 
033641 



026226 
030727 
032452 
033641 



026314 
031170 
032530 
033705 



026344 
031231 
032542 
033641 



026402 
031231 
032542 
033641 



026437 
031231 
032554 
033641 



026472 
031270 
032566 
033641 



;ITEM 17 



;ITEM 20 



;ITEM 2) 



;JTEH 22 



;JTEM 25 



;JTE« 24 



;ITEM 25 



;ITEM 26 



;]T£« 27 



.WORD 
.WORD 
.WORD 
.WORD 


EMI 7 
OHIO 
DT10 
DF1 


.WORD 
.WORD 
.WORD 
.WORD 


EM20 
OHIO 
DT10 
DF1 


.WORD 


EM21 


.WORD 
.WORD 
.WORD 


DH10 
DT10 
DF1 


.WORD 
.WORD 
• WORD 
.WORD 


EM22 
DH10 
DT10 
DF1 


.WORD 
.WORD 
.WORD 
.WORD 


EM23 
DH23 
DT23 
DF23 


.WORD 
.WORD 
.WORD 
.WORD 


EM24 
DH24 
DT24 
DF1 


.WORD 
.WORD 
.WORD 

.WORD 


EM25 
DH24 
DT24 
DF1 


.WORD 
.WORD 
.WORD 
.WORD 


EM26 
DH24 
DT26 
DF1 


.WORD 
.WORD 
.WORD 
.WORD 


EM27 
DH27 
DT27 
DF1 



;N0 UNIBUS MEMORY EXISTS 
;TESTNO ERR PC 
;$TESTN,$ERRPC,0 
; 0, 



INTERRUPT/ABORT L06JC TESTS TRAP TO LOCATION 114 DID NOT OCCUR 
TESTNO ERR PC 
$TESTN,$ERRPC,0 
0, 

; INTERRUPT/ABORT TESTS rt4 WAS OVERWRITTEN WITH 
;DATA INDICATING THAT INSTRUCTION WAS NOT ABORTED 
; TESTNO ERR PC 
;$TESTN,$ERRPC,0 
; 0, 

INTERRUPT/ABORT TESTS TRAP DID NOT OCCUR DUE TO ABORT 
TESTNO ERR PC 
$TESTN,$ERRPC,0 
0, 



LMA NOT LOADED l^ROPERLY 
TESTNO ERR PC LMAEXP LMARCV 
$TES1N,5ERRPC,EADRES,EADRS2,0 
0, 0, 2, 2 



LMA FORCE JUMPER BIT NOT ZERO 
TESTNO ERR PC LMAEXP LMARCV 
$TESTN,$ERRPC,$RE6iaMAMI*0 
0, 0, 0, 



LMA FORCE JUMPER BIT NOT SET 
TESTNO ERR PC LMAEXP LMARCV 
$TESTN,$ERRPC,$RE61 ,LMAHI ,0 
0, 0, 0, 



LMA CONTROL BITS INCORRECT 
TESTNO ERR PC LMAEXP LMARCV 
$TESTN,$ERRPC,$TMP0,$REG2.0 
0, 0, 0, 



FORCE JUMPER BIT FAILS TO REVERT MAP REGISTER STATUS TO DEFAULT 
TESTNO ERR PC LMARCV KIPAR4 
$TESTN,$ERRPC,$TMP0,KIPAR4,0 
0, 0, 



_l 
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1645 




1646 001656 


026572 


1647 001660 


051327 


1648 001662 


032600 


1649 001664 


033641 
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;JTEM 30 



.WORD 
.WORD 
.WORD 
• WORD 



EM30 
DH30 
DT30 
DF1 



KlPAftS NOT LOADED PROPERLY 
TESTNO ERR PC PR5EXP PR5RCV 
$TESTN,$ERRPC,$TMP5AIPAR5,0 
0, 0, 0, 



L 



J 
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SEQUENCE 50 



1650 

1651 

1652 

1653 

165A 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

166A 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

167A 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

168A 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 



001666 



001666 
001670 
001672 
001674 



001676 
001700 

001702 
001704 



001706 
001710 
001712 
0017U 



001716 
001720 
001722 
001724 



001726 
001730 

001732 
001734 



001736 
001740 
001742 
001744 



001746 
001750 
001752 
001754 



001756 
001760 
001762 
001764 



026625 
031366 
032612 
03371 1 



026701 
031415 

032622 
033661 



026774 
031524 
032636 
033711 



027055 
031605 
032654 
033717 



027 1 24 
031656 

0^2670 
0::3677 



027206 
031743 
032702 
033711 



027237 
032013 
032716 
033711 



027346 
032054 
032730 
033724 



ER200: 



;!TEM 201 

.WORD 
.WORD 
.WORD 
.WORD 

;JTEM 202 

.WORD 
.WORD 

.WORD 
.WORD 

;JTEM 203 

.WORD 
.WORD 
.WORD 
.WORD 

;ITEM 204 

.WORD 
.WORD 
.WORD 
.WORD 

;JTEM 205 

.WORD 
.WORD 

.WORD 

.WORD 

;JTEM 206 

.WORD 
.WORD 
.WORD 
.WORD 

;JTEH 207 

.WORD 
.WORD 
.WORD 
.WORD 

;ITEM 210 

.WORD 
.WORD 
.WORD 
.WORD 



EM201 
DH201 
DT201 
DF201 



EH202 
DH202 

DT202 
DP 6 



EM203 
DH203 
DT203 
DF201 



EM204 
DH204 
DT204 
DF204 



EM205 
DH205 

DT205 
DF14 



EM206 
DH206 
DT206 
DF201 



EM207 
DH207 

OF201 



EM210 

dh5io 

DT21Q 
OF210 



;THIS IS THE STARTING POINT FOR ERROR MESSAGES 
;201 THROUGH 377- TH£y ARE USED FOR MULTIPLE 
; ERROR MESSAGES. 



THE FOLLOWING REGISTERS TIMED OUT WHEN READ 
REGADRS TESTNO ERR PC 
EADRES,$TESTN,$ERRPC.O 
2, 0, 



;THE FOLLOWING A«E DUAL ADDRESSING ERRORS IN THE UNIBUS HAP 

;MAPREG f^PREG NON-ZER 

.•TESTING DUALEP CONTNTS TESJNO ERR PC 

;EADRES,EADRS2.$TMP3,$TESTN.$ERRPC.O 

; 2. 2, 0, 0, 

THE BIT PATTERN THROUGH THE MAP REGISTERS FAILED 
REGADRS PATTRN EXPCTD RECEVD TESTNO ERR PC 
EADRS2,$TMP0,$RE64,$RE63,$TESTN,$ERRPC,0 
2. 0, C 0. 0, 



; UNIBUS DATA PATf! COUNT PATTERN FAILURE 
;EXPECTD .75CEIVD ADDRSLOAD TESTNO ERR PC 

;$TMP0,$TMPn$REG2,$TESTN,$ERRPC,0 
;0, 0, 3, 0, 



;UNIBUS ADDRESSING ERRORS, MAP RELOCATION DISABLED 

;ADDRE5S ADDRESS 

;EXPECTD RECEIVD TESTNO ERR PC 

;EADRES,EADRS2,$TESTN,$ERRPC,0 

; 2, 2, 0, 



DATA PATTERN NOT CORRECT 

ADDRESS EXPCTD RECVED TESTNO ERR PC 

EADRES,$TMP4,$TMP5,$TESTN.$ERRPt..2 
2, 0, 0, 0, 



REFERENCED MAP REGISTER WITH ADDRESS ONE BIT DIFFERENT THAN 17770 
ADDRUSED BITDIFF TESTNO ERR PC 
EADRES,$REGO,$TESTN,$ERRPC,0 
2, 0, b, 

MAP REGISTER UNDER TEST DID NOT RESPONf) IN DUAL MAPPING TEST 
TESTNO ERR PC MAPREGADR 
$TESTN,$ERRPC,EADRES,0 
0, 0, 2 
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1703 




170A 001766 

1705 

1706 001770 


027446 


032106 


1707 




1708 001772 


032740 


1709 001774 


03371 1 


1710 




1711 




1712 001776 


027604 


1713 




17U 002000 

1715 

1716 002002 


032106 


032740 


1717 002004 


033711 


1718 




1719 




1720 002006 


027737 


1721 002010 


032270 


1722 002012 


032766 


1723 002014 


033641 


1724 




1725 




1726 002016 


030030 


1727 002020 


032270 


1728 002022 


032766 


1729 002024 


033641 



MACRO Ml 113 



F 3 

11-JAN-82 11 ;27 PAGE 21 



■"1 



SEQUENCE 31 



;JTEM 211 

«WORD 

.WORD 

.WORD 
.WORD 

;JTEM 212 

.WORD 

.WORD 

.WORD 
.WORD 

;ITEM 213 

.WORD 
-WORD 
.WORD 
.WORD 

;]TEM 214 

.WORD 
.WORD 
.WORD 
.WORD 



EM211 ;RELOCATJON THROUGH THE MAP WAS NOT CORRECT, CARRY PROPAGATION 

;TEST BEING RUN OVER UNIBUS 
DH211 ;CORR£CT EXPECTD ^lill'^b 

;ADDRESS DATA FROM U6 TESTNO ERR PC 
DT211 ;EADRES,$RE63,$RE62,$TESTN,$ERRPC,0 
DF201 ; 2, 0, 0, 0, 

EM212 ;MAIN MEMORY TIME OUT OVER THE UNIBUS DJO NOT OCCUR PROPERLY. 

;TEST BEING RUN OVER UNIBUS 
DH211 ; CONDI TN CONDI TN 

;EXPECTD RECEIVD TESTNO ERR PC 
DT211 ;CPUEXP,PCPUER,$TESTN,$ERRPC,0 
DF201 ; 0, 0, 0, 

EM213 ;MAP REGISTER ENABLED WHEN DDW SAYS IT SHOULD BE DISABLED 

DH213 ; TESTNO ERR PC REG NO DDWDAT DDWADR 

DT213 ;$TESTN,$ERRPC-$T«P0,$TMP1 ,$RE65,0 

DF1 ; 0, 0, 0, 0, 6 

EM214 ;MAP REGISTER DISABLED WHEN DDW SAYS IT SHOULD BE ENABLED 

DH213 ; TESTNO ERR PC REG NO DDWDAT DDWADR 

DT213 ;$TESTN,$ERRPC.$TMP0,$TMP1,$REG5,0 

DF1 ; 0, 0, 0. 0. 6 



-«.J 



G 3 

CKKUAEO 11/2A/4^ UBI MAP MACRO Mil 13 11-JAN-82 11;27 PAGE 28 SEQUENCE 3^ 

SOFTWARE SWITCH REGISTER LOCATION 

1730 .SBTTL SOFTWARE SWITCH REGISTER LOCATION 

1731 002026 •$Y=. ;SAVE ADDRESS LOCATION 

1732 _^ 9QOF6 .=176 ;ADDRESS TO SOFTWARE SWITCH REGISTER LOCATION 

1733 000176 000000 SSSWR: .WORD ;LOCATION FOR SOFTWARE SWITCH REGISTER 

1734 002026 .=.$Y ;RETURN TO PREVIOUS ADDRESS LOCATION 
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1735 
1736 
1737 
1738 
1739 
1740 
1741 
17A2 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
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SEQUENCE 33 



002026 



00 
00 
00 



OOi 
OOi 

ooi 

oo; 



32 
036 
040 
04A 
046 
050 
054 
056 
062 
064 

m 

071, 



I 



010046 
005000 
113700 
01004 
13746 
104402 
000565 
122700 
001003 

000451 

10QQ41 
023727 



001112 
001114 

000177 
002432 

000003 
001320 



SBTTL ERROR MESSAGE TYPE OUT ROUTINE 

;*****•*■ <f************'***'***t**********'<ti(f ************ ************ 
* 

* THIS SUBROUTINE IS CALLED BY THE ERROR HANDLER TO TYPE 

* THE ERROR MESSAGES. IT PICKS UP THE ITEM BYTE (SITEMB) NUMBER 

* AND USES THAT TO INDEX THROUGH IHE ERROR TABLE. THE ERROR 

* TABLE STARTS AT •'SERRTB** AND HAS FOUR (4) POINTERS FOR EACH 

* ENTRY, 'EM', 'DH', 'DT', 'DF'. THE 'EM' POINTS TO THE ERROR 

* MESSAGE WHICH IS AN ASCIZ STRING. THE 'DH' POINTS TO THE DATA 

* HEADER WHICH IS ANOTHER ASCIZ STRING. THE 'DT' POINTS TO THE 

* DATA TABLE WHICH IS A GROUP OF WORDS CONTAINING THE ADDRESSES 

* OF THE DATA TO BY TYPED. THE FORMAT OF THIS DATA IS 

* CONTROLLED BY THE 'DF' WHICH IS THE POINTER TO THE DATA FORMAT. 

* THE DATA FORMAT IS A GROUP OF BYTES WHICH CONTAIN NUMBERS 

* THAT CORRESPOND TO DIFFERENT I'fPim FORMATS, 

* -16 BIT OCTAL FORMAT 

* 1 -DECIMAL FORMAT 

* 2 -22 BIT OCTAL FORMAT. DATA IS LOWER 16 BITS OF THE 

* PHYSICAL ADDRESS, UPPER 6 BITS ARE ADJACENT TO LOWER 16 

* 3 -22 BIT OCTAL FORMAT. DATA IS THE 16 BIT VIRTUAL 

* modress in kernel I^SPACE. 

* 4 -18 BIT OCTAL FORMAT. DATA IS A 16 BIT NUMBEP THAT 

* WILL BE CONVERTED INTO A UNI8US ADDRESS BY LEFT 

* SHIFTING IT 6 BITS. 

* 5 -16 BIT OCTAL, SUPPRESS LEADING ZEROS 

* 6 -16 BIT DECIMAL, SUPPRESS SPACES 

* IF YOU SHOULD HAVE A NEED TO JUST TYPE A STRING OF 

* NUMBERS, SET UP YOUR CODE THIS WAY: 

* MOV ^CONTINUE, -(SP) ;MOVE THE ADFRESS OF THE INSTRUCTION AFTER THE 

* ;JUMP TO THE STACK 

* MOV RO,-(SP) ;SAVE RO 

* MOV R1,-(SP) ;AND R1 ON THE STACK 

* MOV DTNAME,RO ;MOVE THE ADDRESS OF THE DATA TABLE TO RO 

* JMP »YPDAT .'SUBROUTINE IDENTIFIED IN CENTER OF THIS ROUTINE 

* CONTINUE: NEXT INSTRUCTION 

* AT A CONVENIENT SPOT, ALOCATE THE FOLLOL'ING: 

*DTNAME: .WORD DTLIST,DFNAME IDENTIFY THE LIST NAME AND DATA FORMAT BELOW 
*DFNAME: .BYTE N,N,N,N,ETC. ; CONSTRUCT YOUR OWN DATA FORMAT LINE 

* .EVEN 

*DTLIST: VAR1,VAR2,VAR3,VAR4, $CRLF,0 ; VARIABLES YOU WANf TYPED 

* 

********************* **********ik**************************it***** 



§fiTYPE: MOV 
CLR 



1$: 



2QQI: 



000020 



MOVB 

BNE 

MOV 

TYPOC 

BR 

CMP8 

BNE 

MOV 

BR 

DEC 

ASH 

BPL 

CMP 



RO,-(KSP) 

$ITEMB,RO 

1$ 

$ERRPC,-(KSP) 

13$ 

#177, RO 
200S 

#PMBECW,RO 
210$ 

#3-R0 

22i 

£RRCNT,#20 



SAVE RO ON STACK 

CLEAR RO 

PUT ITEM NUMBER IN RO 

BRANCH IF IT IS NON-ZERO 

PUT ERROi^ PC ON STACK FOR TYPING 

TYPE FAILING PC 

GO TO RETURN 

SEE IF THIS IS THE PWR MON BIT ERROR ;DPK001 

BRANCH IF NOT TO CALL ERROR 

MOVE ADDRESS OF SPECIAL DATA HEADER TO RO 

BRANCH TO CALL ERROR 

ADJUST ITEM NUMBER TO BE A POINTER 

LEFT SHIFT ITEM NO. 3 PLACES 

BRANCH IF ITEM NUMBER IS LESS THAN 200 

;* SEE If 20 (OCTAL) ERRORS HAVE PRINTED 
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1792 
1793 
179A 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
180A 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
181A 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
182A 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
183A 
1835 
1836 
1837 
1838 
1839 
18A0 
1841 
18A2 
1843 
18A4 
18A5 
18A6 
1847 
1848 



002102 
002104 
002106 
002114 
002116 
002122 
002124 
002132 
002134 
002142 
002144 

002152 
002154 
002160 
002164 
002166 
002172 



002176 
002202 
002206 
002212 
002214 
002216 
002220 



002224 
002230 
002232 
002234 
002236 



002242 

002244 
002246 
002250 
02252 
02254 



8 



002256 
002260 
002262 
002264 
002270 

002272 
002274 
002276 
002300 



002410 
001404 
062766 
000542 
104401 
000537 
022737 
001415 
032777 
001404 
062766 

000523 
042700 
062700 
000426 
042700 
062700 



104401 
062700 
012037 
001404 
104401 
000000 
104401 



012037 
001404 
104401 
000000 
104401 



010146 
002244 
012001 
001464 
012000 
105710 
001003 

013146 
104402 
000451 
122710 
001003 

013146 
104405 
000443 
122710 



000004 
006421 
000001 
000200 
000004 



177400 
001672 

177000 
000300 



001223 
001366 
002216 



001223 
002234 

001223 



000002 

41$: 
001320 40$: 
176774 
000002 

20$: 

21$: 

22$: 
210$: 

2$: 

3$: 
4$: 



8LT 

QEO 

ADD 

BR 

TYPE 

BR 

CMP 

BEQ 

BIT 

6EU 

ADD 

BR 

BIC 

ADD 

BR 

BIC 

ADD 



TYPE 

ADD 

MOV 

BEQ 

TYPE 

.WORD 

TYPE 



F>OV 

TYPE 

.WORD 

TYPE 



5$: MOV 

TVPDAT=. 

MOV 
BEQ 
MOV 

6$: TSTB 
BNE 



000001 



7$: 



000002 



8$: 



MOV 

TYPOC 

BR 

CMP8 

BNE 

MOV 

TYPDS 

BR 

CMP8 



40$ 

41$ 

#4.2(KSP) 

13i 

,NOMORE 

13$ 

^I.ERRCNT 

2ii 

#SW7,aSUR 

20$ 

#4,2(KSP) 

13$ 

*1 77400, RO 

X'ER200+i,R0 

5$ 

*1 77000, RO 



SEQUENCE 34 



;* BRANCH TO PRINT THE ERROR If LESS 

;* BRANCH TO TYPE NO MORE DATA LINES If EQUAL 

;* CORRECT PC RETURN TO RETURN AFTER <CRLF> PRINT 

;* 60 TO TETURN 

;* TYPE MESSAGE TO ANNOUNCE NO MORE PRINTING OF ERRORS 

;• 60 TO RETURN 

;* SEE If THIS IS THE FIRST ERROR 

;* BRANCH If IT WAS AND 60 TYPE ER^^OR MESSAGE 

SEE If SWITCH 7 IS UP 

BRANCH If SWITCH NOT UP AND TYPE DATA 

SKIP 'TYPE -$CRLF' IF SW 7 IS UP 

INHIBIT MULTIPLF ERROR TYPEOUTS 

BRANCH TO EXIT 

RO 

ENTRY 



CLEAR UPPER BYTE OF 
POINT TO DATA TABLE 
GO TYPE DATA TABLE 
CLEAR UPPER BYTE OF 



R1,-(KSP5 

(R0)+,R1 

12$ 

(R0)+,R0 

(RO) 

7$ 

;:WORD 
a(R1}+,-(KSP) 

11$ 

8$ 

::WORD 
S(R1)+,-(KSP) 

11$ 
«,(R0) 



RO 
BETWEEN 
01 

;:GET POINTER TO ERROR MESSAGE AND TYPE IT 
;:lf THE POINTER IS NOT ZERO 
;TYPE A <CRLF> 
;ADD BASE OF ERROR TABLE 
;P M MESSAGE POINTER IN TVPF STATEMENT 
;6RANCH IF NO ERROR MESSAGE 
;TYPE ERROR MESSAGE 
; POINTER TO ERROR MESSAGE 
:TYPE CRLF 

;:GET THE POINTER TO THE DATA HEADER AND 
;:TYPE IT IF THE POINTER IS NOT ZERO 

;PUT HEADER POINTER IN lYPE STATEMENT 
.'BRANCH IF NO DATA HEADER 
;TYPE THE DATA HEADER 
;POINTER TO DATA HEADER 
;TYPE CRLF 
THIS IS THE START OF THE DA1A 0U1PUT IF THE 
DATA POINTER IS NOT ZERO. RO POINTS TO THE 
DATA F0R/1AT, R1 POINTS TO THE ADDRESS OF 
THE DATA WORDS, 

;SAVE R1 ON JHE STACK 



*<ER200-$ERRTB>,R0 ;ADD DIFFERENC 

ITEM 1 AND ITEM 



.$CRLF 
«ERRT8,R0 
(R0)+,2i 
3$ 



,$CRLF 



'>:Q>v,4$ 
5$ 



,$CRLF 



;PUT DATA TABLE POINTER IN Rl 

;8RANCH IF NO DATA TABLE 

;PICK UP DATA FORMAT POINTER 

;1S THIS WORD OCTAL 

;6RANCH IF NOT 16-^IT OCTAL 
IS 16 BIT OCTAL FORMAT (DF = 0) 
PUSH NEXT 16-8IT WORD ON STACK 
TYPE THE WORD ON STACK AS 16 BIT OCTAL 
GET READY FOR NEXT WORD 
IS THE WORD DECIMAL 

-BRANCH IF NOT DECIMAL 
IS DECIMAL FORMAT (DF = 1) 
PUSH NEXT 16-eiT WORD CN STACK 
TiPE THE WORD ON STACK AS DECIMAL 
GET READY FOR NEXT WORD 
IS WORD 22-BIT PHYSICAL ADDRESS 
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SEQUENCE 



6'3 



18A9 00230A 
1850 

1851 002306 

1852 002310 

1853 0023U 
185-!* 002320 

1855 002324 

1856 002326 

1857 002330 

1858 00233^ 

1859 002336 
1860 

1861 

1862 0023A0 

1863 0023'i2 

1864 0023A6 

1865 002350 
1866 

1867 002354 
1868 
1869 
1870 

1871 002356 

1872 002362 

1873 002364 
1874 

1875 002370 

1876 

1877 

1878 002372 

1879 002374 
1^80 002376 
1fe*<1 002377 
188? 002400 
188i 002402 
1884 

1885 002402 

1886 002''rO''t 

1887 002406 

1888 002410 

1889 002414 

1890 002416 

1891 002420 

1892 002422 

1893 002424 

1894 002426 
1895 

1896 002432 

1897 002442 

1898 002476 
1899 

1900 002526 

1901 002536 



001012 

012146 
004737 
062716 
012637 
104401 
000000 
000426 
122710 
001004 



013146 
004737 
000417 
122710 

001003 



004737 
000411 
122710 

001004 



013146 

104403 

006 

000 

000402 



013146 
104^i05 
005200 
10^401 
005711 
00^315 
012601 
012600 
000207 
040 

002442 
120 
1?4 

020U6 
000 



024040 
000003 
002326 



000003 

002542 
000004 



30$: 
9$: 



10$: 



002650 
000005 



100$: 



002426 



110$; 



11$: 



040 

002476 
117 
105 

001114 
000 



12%: 
13$: 

000 32$: 



002526 
127 
123 



PMBECW 
PM8ECM 

PMBECH 



020700 PMBE CD: 
000 PM8ECF; 



BNE 

MOV 

JSP 

ADD 

MOV 

TYPE 

.WORD 

GR 

CMPS 

BNE 



MOV 
JSR 
BR 
CMP8 

BNE 



JSR 

BR 

CMP8 

BNE 



MOV 

TYPOS 

.BYTE 

.BYTE 

BR 



MOV 

TYPDS 

INC 

TYPE 

TST 

BNE 

MOV 

MOV 

RTS 

.ASCIZ 

• EVEN 

.UORD 

.ASCJZ 

.ASCIZ 

.EVEN 

.WORD 

.BYTE 



9$ 

;:WORD 
(R1)+,-(KSP) 
PC,$D820 
#3,(KSP) 
(KSP) +,30$ 





11$ 
r3,(R0) 

loi 



a(i^i)+,"(KSP) 

PC.TYPVAD 

iii 

HAM) 
100$ 



;BRANCH If NOT 22-81 T PHYSICAL ADDR 
IS 22-8n PHYSICAL FORMAT (DF = 2) 
;PUSH NEXT 16-8IT WORD ON STACK 
; CONVERT NLWBER TO OCTAL ASCIZ 
;ONLY WANT 8 DIGITS 
;PUT POINTER AFTER 'TYPE' CALL 
;TYP£ ASCIZ STRING 
;WORD HOLDS POINTER TO ASCIZ STRING 
;6ET READY FOR NEXT WORD 
;IS THIS A 16-BIT VIRTUAL ADDRESS 
;8RANCH IF NOT 16-BIT VIRT. ADDR. 
;:WORD IS 22-BIT VIRTUAL ADDRESS FORMAT 
:KERNEL I-SPACE ASSUMED. (DF = 3) 



PUSH NEXT 16-BIT WORD ON STACK 
GO TYPE 22-8IT ADDRESS FROM 16-8IT V.A. 
GET READY FOR NEXT WORD 
IS THIS A 16 BIT NUMBER TO BE CONVERTED TO 
AN 18 BIT UNI8US ADDRESS LEFT SHIFTED 6? 
SKIP OVER FORMAT 4 ROUTINE U NOT 
;:WORD IS FORMAT 4. DATA WORD IS A UNIBUS 
;:ADDRESS OUTPUT WILL fiC 18-81 fS WORD LEFT SHIFTED 6, 



PC-U8ADDR 
Iii 
If 5 ARO) 

110$ 



; CONVERT TO 18-8IT UNIBUS ADDR AND TYPE 

;6ET READY FOR NEXT WORD 

;IS THIS A 16 BIT NUMBER TO BE PRINTED AS 

;OCTAL WITH LEADING ZEROS SUPPRESSED? 

;8RANCH TO DECIMAL LEADING SPACES SUPPRESS ROUTiNC 
;:WORD IS FORMAT 5. DATA WORD IS TO BE 
;:PRINTED IN OCTAI . LEADING ZEROS SUPPRESSED- 



a(Rl.S-(KSP) ;PUSH NEXV 16-BIT WORD ON STACK 

;G0 TYPE OCTAL SUPPRESS LEADING ZEROS 

6 ;TYPE 6 DIGITS AND 

; SUPPRESS LEADING ZEROS 

11$ :GET READY FOR NEXT WORD 

;:WORD IS FORMAT 6. DATA WORD IS TO BE 
;:PRINT£D IN DECIMAL- LEADINU SPACES SUPPRESSED. 

a(Ri;+,-(KSP) ;PUSH NEXT 16-BIT WORD ON STACK 



RO 

.32% 

(R1) 

6$ 

(KSP)+,R1 

vKSP) +,R0 

PC 

7 ') 



POINT TO NEXT FORMAT BYTE 

TYPE TWO SPACES 

IS THERE ANOTHER WORD? 

BRANCH IF NOT ALL DONE 

RESTORE Rl 

RESTORE RO 

RETURN TO ERROR ROUTINE 

TWO SPACES 



PMBECM^PMBECH.PMBlCD-PMBECF 
?POWER MONITOR BIT FOUND SET? 
7TESTN0 ERR PC CPUERR? 

$TESTN-$ERRPC,CPSAVE,0 
0,0,0,0 



;4 WORDS POINTING TO BELOW 



J 
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K 
30 



SEQUENCE 56 



1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
19H 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
193^ 
1935 
1936 
1937 
1938 
1939 



002542 
002544 
002550 
002552 
002556 
002560 
002562 
002564 
002566 
002572 
002574 
002576 
002602 
002604 
002606 
002612 
002616 
002622 
002626 
002632 
002636 
002640 

002642 
002644 
002646 



104411 
016601 
005000 
073027 
006300 
006001 
006001 
006001 
062/00 
011003 
005002 
073227 
060103 
005502 
010237 
010337 
012746 
004737 
062716 
012637 
104401 
000000 

104412 
012616 
000207 



S8TTL CONVERT 16-8IT VIRTUAL ADDRESS TO 22-6IT PHYSICAL ADDRESS 

;*********** fir ****************** ********i!;*rtilr ********************** 

* 
* 
* 
* 
* 
» 
* 
* 
* 



000002 
000003 

172340 
000006 



001230 
001226 
001226 
024040 
000003 
002640 



THIS ROUTINE IS CALLED BY A 'JSR PC' AFTER THE VIRTUAL ADDRESS 
IS PUSHED ON THE KERNEL STACK. THE V,A. IS THEN LOADED INTO 
R1 AND THE UPPER 3 BITS ARE SHIFTED INTO RO ^0 SELECT THE 
CORRECT KERNEL I-SPACE PAR. THE LOWER 12 BITS OF THE VIRTUAL 
ADDRESS ARE ADDED TO THE PAR AS THEY ARE BY MEMORY MANAGEMENT 
AND THE PHYSICAL ADDRESS IS SAVED IN MEMORY TO BE CONVERTED 
TO ASCIZ AND TYPED. 

*********************************** 

SAVE ALL REGISTERS 

PUT VIRTUAL ADDR IN R1 

CLEAR RO fCA CALCULATIONS 

IFFT SHIFT R0,R1 3 PLACES 

LEFT SHIFT RO ONE MORE PLACE 

RIGHT SHIFT R1 SO OFFSET IS CORRECT 

RIGHT SHIFT R1 

RIGHT SHIFT R1 

FORM DESIRED PAR ADDR IN RO 

PUT CONTENTS OF PAR IN R3 

CLEAR R2 FOR PHYSICAL ADDR CALCULATIONS 

LEFT S'tUfT <R2,R3> 6 PLACES 

ADD OFFSET IN R1 TO BASE IN R3 

ADD ANY POSSIBLE CARRY TO UPPER 6 BITS 

PUT UPPER 6 BITS OF ADDR IN CORE 

PUT LOWER 16 BITS OF ADDR IN CORE 

PUT POINTER TO LOWER 16 BITS ON STACK 

CONVERT NUMBER TO OCTAL ASCIZ 

ONLY TYPE 8 DIGITS 

PUT POINTER AFTER TYPE INST 

TYPE THE 22-BIT VIRTUAL ADDRESS 

THIS WORD HOLDS THE POINTER TO 

THE ASCIZ STRING 

RESTORE ALL THE REGISTERS 

LEAVE ONLY RETURN ADDR ON STACK 

RETURN TO ERROR HANDLER 



>;**********!^**************^** 


TYPVAD: SAVREG 




MOV 


2(KSP),R1 


CLR 


RO 


ASHC 


^3M 


A3L 


RO 


ROR 


R1 


ROR 


R1 


ROR 


R1 


ADD 


^KIPARO.RO 


MOV 


(R0),R3 


CLR 


R2 


ASHC 


#6,R2 


ADD 


R1,R3 


ADC 


R2 


MOV 


R2,PADRSH 


MOV 


R3,PADRSL 


MOV 


*PADRSL,-(KSP) 


J3R 


PC.$DB20 


ADD 


*3.(KSP) 


MOV 


<KSP)+,3$ 


TYPE 




3$: .WORD 





RESREG 




MOV 


(KSP)+,(KSF) 


RTS 


PC 



L 
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SEQUENCE 37 



1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 



002650 
002652 
002656 
002660 
002664 
002670 
002674 
002700 
002704 
002710 
002714 
002716 
002720 
002722 
002724 



104411 
016601 
005000 
073027 
010137 
010037 
012746 
004737 
062716 
012637 
104401 
000000 
104412 
012616 
000207 



000002 

000006 
001226 
001230 
001226 
024040 
000005 
002716 



SBTTl SUBROUTINE TO CONVERT WORD TO A UNIBUS ADDRESS AND TYPE 

;**********************♦*♦*** ***lHlf*«;*«r***Hr*ft*ilt*******i^**** ****** 

*THJS SUBROUTINE IS USED TO CONVERT THE A WORD PUSHED 
*0N THE STACK INTO A UNIBUS ADDRESS AND TYPE IT AS A 
*6 DIGIT NUMBER. IT USES R1 i RO AND LEAVES 
*ALL OTHER REGISTERS UNCHANGED. 

; *************************************************************** 

UBADDR: SAVREG 

;LOAD '6 BIT ADDRESS INTO R1 
.-CLEAR RO FOR CALCULATIONS 
;LEK SHIFT <R0:R1> ^ PLACES 
;PUT LOWER 16 BITS IN PADRSL 
;PUT \JPPER 6 BITS IN PADRSH 
;PUSH POINTER TO WORDS ON STACK 
;JUMP TO CONVERT ROUTINE 
;nNL. USE LOWER 6 CHARS. 
;PUT POINTER AFTER TYPE C 



3$: 



MOV 


2(KSP),R1 


CLR 


RO 


ASHC 


^6,R0 


MOV 


R1, PADRSL 


MOV 


RO, PADRSH 


MOV 


#PADRSL,-CKSP) 


JSR 


PC,$DB20 


ADD 


^5,(KSP) 


MOV 


(KSP)+,3$ 


TYPE 




.WORD 





RESREG 




MOV 


(KSP)+, (KSP) 


RTS 


PC 



-L. 



;HOLDS POINTER TO FIRST 



;LEAVE ONLY RETURN ADDRESS ON STACK 
;RETURN TO ERROR TYPE ROUTINE. 



CKKUAEO 11/24/A4 UBI MAP 
TURN OFF AND SAVE T-BIT 



1962 
1963 
196A 
1965 
1966 
1967 
1968 
1969 
197C 
1971 
1972 
1973 
197A 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
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SEQUENCE 38 



000020 
002726 032766 000020 
002734 00U06 
002736 016637 000002 
002744 042766 000020 
002752 000006 



000002 

001346 
000002 



.SBTTL TURN OFF AND SAVE T-BIT 

;4r****llr**4r«4:*4r******C ********** *)lr****lir***«lr4r*iit**«^***i^***ilt*t*i^t**^ 
;********************************************************#.****** 

* **SU8R0UTINES UNIQUE TO THIS PROGRAM** 

;************************************************* *<^*****t****t* 
; *************************************************************** 

;*************************************************************** 

* 

* THIS TRAP ROUTINE IS REACHED BY THE TRAP CALL 'TBI TO*. IT IS 

* USED TO TURN OFF THE >BIT IF IT IS ON. THE PROCESSOR STATUS 

* IS SAVED IN "OLDPSW" SO THAT THE T-BIT CAN BE RESTORED TO ITS 

* PREVIOUS STATUS WHEN CONDITIONS WARRANT. 



;*****************************fV****************************i^i^ir*t 



T8IT-8IT4 
TBITOF: BIT *TBIT,2(KSP) 

BEG 1$ 

MOV 2(KSP). OLDPSW 

BIC #T8IT,2(KSP) 
1$: RTT 



T-BIT IS BJT04 IN PROC. STATUS 

IS THE T-BIT ON? 

BRANCH TO EXIT IF IT IS NOT ON 

SAVE OLD PSW FOR RESTORING T BIT 

CLEAR T BIT 

RETURN TO PROGRAM 



CKKUAEO 
RESTORE 

1983 
1984 
1935 
1986 
1937 
1988 
1989 
1990 
1991 
1992 
1993 
199A 
1995 
1996 



11/24/44 
T-BIT TO 



UBI 
ITS 



MAP 
PREVIOUS 



MACRO M1113 
CONDITION 
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SEQUENCE 39 



002754 
002762 



013766 
042737 



001346 
000020 



000002 
001346 



S8TTL RESTORE T-8JT TO ITS PREVIOUS CONDITION 

;**********^**************# **************************** ********** 
* 

THIS TRAP ROUTINE CAN BE REACHED BY THE TRAP CALL 'TBITR'. IT IS 

* USED TO RESTORE THE T-8IT AFTER A PARTICULAR TEST THAT CANNOT 

* BE RUN WITH THE T-BIT ON, IT USES THE PROCESSOR STATUS STORED 

* IN "OLDPSW" BY 'TBITO*, REPLACES THE PS ON THE STACK WITH IT 
» AND DOES AN 'HTT'. 

Hf 

• A************************************************************** 



002770 000006 



TBIIRE: MOV 
BIC 

RTT 



0LDPSW,2(KSP) 
^T8IT,0LDPSW 



OUT OLD PSW ON STACK 
CLEAR T-BIT IN "OLDPSW" 
SO THAT IT WON'T BF TURNED ON BY ACCIDENT 
;RETURN TO PROGRAM AND INHIQIT T-BIT TRAP AFTER THIS INSTRUCTION 



CKIfUAir* 11/24/44 UBI MAP 
SUBROiniNE TO CLEAR ALL OF THE 



)VV7 
1998 
199Q 
2000 
2001 
2002 
2003 
2004 
2005 

;:oo6 

2007 

2008 002772 012703 

2009 002776 005023 

2010 003000 005023 

2011 003002 032737 

2012 003010 001402 

2013 003012 012723 

2014 003016 005023 

2015 003020 022703 

2016 003024 001374 

2017 003026 000ti07 



MACRO Ml 113 
MAP REGISTERS 
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SEQUENCE 40 



.SBTTL SUBROUTINE TO CLEAR ALL OF THE MAP REGISTERS 



THIS SUBROUTINE CLEARS ALL OF THE MAP REGISTERS IF MAPPING IS 
DISABLED BY LOADING THE ADDRESS OF MAPLOO INTO R3 AND THEN 
CLEARING THE REGISTER POINTED TO BY R3 UNTIL R3 POINTS ABOVE 
MAPH37. IF MAPPING IS ENABLED, ALL REGISTERS EXCEPT MAPL1 
IS CLEARED. THE LOWER WORD OF MAPL1 RECEIVES 20000. THIS IS 
SO APT CAN PROPERLY MONITOR THE PROGRESS OF THE DIAGNOSTIC. 



170200 



000040 172516 

020000 

170400 



;0UT FIRST MAP ADDR IN R3 

; CLEAR MAPLO 

; CLEAR MAPLO+2 

;SEE IF MAPPING IS ENABLED 

;8RANCH TO CLEAR ALL 11^ NOT ENABLED 

;LOAD 20000 INTO MAPL1 FOR POSSIBLE APT USE 

; CLEAR MAP REGISTERS 

;SEE IF LAST A'^DR+2 IS IN R3 

.-BRANCH IF »•". DONE YET 

;RETURN TO WAIN PROGRAM 



CLRMAP: 


MOV 


*«APL0,R3 




CLR 


(R3) + 




CLR 


iR5)* 




BIT 


#B]T5,MMR3 




BEQ 


IS 




MOV 


«0000,(R3) + 


1$; 


CLR 


(R3) + 




CMP 


#MAPH37+2,rt3 




BNE 


1$ 




RTS 


PC 



CKKUAEO 11/24/AA UBI MAP MACRO 
SUBROUTINE TO LOG AND REPORT TIMEOUTS 



2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 

2027 003030 005227 

2028 003052 Mllll 

2029 00303A 00U03 

2030 003036 005237 

2031 003042 000000 
2032 

2033 

2034 003044 012637 

2035 003050 012637 

2036 003054 105737 

2037 003060 001406 

2038 003062 005237 

2039 003066 005737 

2040 003072 001435 

2041 003074 000442 

2042 003076 013737 

2043 003104 013737 

2044 003112 023737 

2045 003120 001405 

2046 003122 012737 

2047 003130 104001 
20'»8 003132 000423 

2049 003134 105737 

2050 003140 001403 

2051 003142 005237 

2052 003146 000415 

2053 003150 022737 

2054 003156 001411 

2055 003160 010046 

2056 003162 013746 

2057 003166 004737 

2058 003172 012737 

2059 003200 104201 

2060 003202 012737 

2061 QQ3210 013746 

2062 003214 013746 

2063 003220 000006 



M1113 
OF MAP 



11-JAN-82 
REGISTERS 
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SEQUENCE 41 



020142 



001342 
001344 
007140 

001330 
001326 



1 77766 
001330 
001330 



001330 
177766 
001326 



Mini 003032 



007140 
001320 
000020 



172356 
003674 

Mini 



Mini 

001344 
001342 



003032 
003032 



.S8TTL SUBROUTINE TO LOG AND REPORT TIMEOUTS OF MAP REGISTERS 

* THIS SUBROUTINE IS USED TO LOG AND REPORT THE FACT THAT A 

* REFERENCE TO A MAPPING REGISTER TIMED OUT ON THE UNIBUS. IT 

* KEEPS A "LOGICAL AND" AND A "LOGICAL OR" OF EACH ADDRESS THAT 

* TIMES OUT. 
* 



TIMEOUT;INC 
T0FLA6: .WORD 
BEQ 
INC 
HALT 



10$: 



1$: 



2$: 
001326 25$: 



3$: 
4$: 



MOV 

MOV 

TST8 

BEQ 

INC 

TST 

BEQ 

1R 

MOV 

MOV 

CMP 

BEQ 

MOV 

ERROR 

BR 

TST8 

BEQ 

INC 

BR 

CMP 

BEQ 

MOV 

MOV 

JSR 

MOV 

ERROR 

MOV 

MOV 

MOV 

RTT 



* * * 4r <k * 1^ t ilr* 4ri^ ** 4r * 
(PC) + 
-1 
10$ 

$MSGTY 

;I HAVE ENTERED 



(KSPH^OLDPC 

(KSP)+,OLDPS 

CPUTyP 

1$ 

PCPUER 

CPUEXP 

3$ 

4$ 

CPUERR. PCPUER 

PCPUER, CPUERR 

PCPUER, CPUEXP 

2$ 

*-1,T0FLA6 

+1 

4S 

cPUTyp 

25$ 

ERRCNT 

4$ 

#TIMOUT, CPUEXP 

4$ 

RO,-(SP) 

KIPAR7>-(SP) 

PC.ADREXT 

#-1 JOFLAG 

+20l 

#-UOFLAG 

OLDPS,-(KSP) 

OLDPC,-(KSP) 



; INCREMENT ONE TIME GATE 

;ONE TIME ENTANCE FLAG 

;BRANCH IF FLAG \% NOW ZERO 

INDICATE TO APT A FATAL im^^ PlfURED 

THIS ROUTINE BEFORE I FINISHEu REPORTING THE FIRST ERROR, 

THE SECOND ENTRY ADDRESS IS ON THE STACK AND THE 

FIRST ERROR CONDITION n PROBABLY STILL LOCKED UP. 

SAVE RETURN ADDRESS 

SAVE OLD PSW 

%^l IF THIS IS AN 11/44 

BRANCH TO CONTINUE IF U IS 

INCREMENT PCPUER TO SHOW A TIMEOUT OCCURED 

SEE IF THERE WAS AN EXPECTED ERROR 

60 REPORT ERROR IF NCNE EXPECTED 

BRANCH TO EXIT IF TIMEOUT WAS EXPECTED 

SAVE CPU ERROR REGISTER 

CLEAR CPU ERROR REGISTER 

SEE IF EXPECTED CONDITION CAME UP. 

BRANCH IF IT WAS A TIMEOUT 

RESET ONE TIME GATE 

NOT THE CORRECT CPU TRAP THROUGH 4 

BRANCH TO EXIT 

IS THIS AN 11/24? 

BRANCH IF NOT 

COUNT THIS AS A TIMEOUT 

GO TO EXIT 

SEE IF A TIMEOUT WAS EXPECTED 

BRANCH TO EXIT THIS ROUTINE IF IT WAS 

PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE USE 

PUT PAR ON STACK FOR ADREXT SUBROUTINE USE 

GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 

RESET ONE TIME GATE 

THE FOLLOWING REGISTERS TIMED OUT WHEN READ 

RESET ONE TIME GATE 

RESTORE OLD PSW 

PUSH RETURN ADDRESS BACK ON THE STACK 

RETURN TO THE TEST 



CKKUAEO 11/24/4A U8I HAP 
CPU TRAP HANDLER ROUTINES 



2064 
206S 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 

2082 003222 

2083 003224 

2084 003226 
•2085 003230 
2086 003234 
2087 

2088 

2089 003236 

2090 003242 

2091 003246 

2092 003254 

2093 003262 

2094 003266 

2095 00327C 

2096 003274 

2097 003276 

2098 003304 

2099 003306 

2100 003314 

2101 003316 

2102 003320 

2103 003326 

2104 003330 

2105 003332 

2106 003336 

2107 QQ3344 

2108 003352 

2109 003360 

2110 003364 

2111 003370 
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SEQUENCE 42 



005227 
Mllll 
001403 
005237 
000000 



012637 
012637 
013737 
013737 
005737 
001414 
105737 
001016 
023737 
001417 
012737 
104001 
000412 
012737 
104002 
000405 
005237 
013737 
12737 
13737 
013746 
013746 
000006 



8 



020142 



001342 
001344 
177766 
001342 
001326 

007140 

001330 

\77711 



001330 
001340 



001326 
003224 



-SBTTL CPU TRAP HANDLER ROUTINES 

* **TRAP HANDLING ROUTINES** 

* THIS SUBROUTINE WILL HANDLE ALL CPU TRAPS AND ABORTS, THROUGH 

* 'tRRVEC" (000004). IF THIS SUBROUTINE IS ENTERED BY A SECOND 

* TRAP BEFORE THE FIRST HAS BEEN PROCESSED A HALT 1% EXECUTED. 

* IF THE WORD 'CPUEXP' IS ZERO, NO TRAP WAS EXPECTED AND AN 

* UNEXPECTED ERROR MESSAGE 1% GIVEN. IF THE WORD "CPUEXP* IS 

* NOT ZERO THEN THE CPU ERROR REGISTER 'CPUERR' IS COMPARED WIIH 

* 'CPUEXP' TO SEE IF THE PROPER CONDITION OCCURRED. 'PCPUER' CAN 

* BE USED AS A FLAG TO INDICATE THAT A TRAP HAS OCCURRED SINCE IT 

* IS LOADED WITH THE ERROR REGISTER IF A TRAP VECTORS HERE 



CPUER: INC (PC)+ 
CPFLA6: .WORD -1 
BEO 10$ 
INC $MSGTY 
HALT 
FINISHED REPORTING 



;I 

;THE 

10$; 



Mllll 003224 1$: 



001320 
001326 

1 mil 

001330 
001344 
001342 



001330 
003224 
177766 



2$: 

3$: 



STACK, 
MOV 
MOV 
MOV 
MOV 
TST 
BEO 
TSTB 
6NE 
CMP 
BEQ 
MOV 
ERROR 
BR 
MOV 
ERROR 
BR 
INC 
MOV 
MOV 
MOV 
MOV 
MOV 
RTT 



AND 



FIRST 
ERROR 



THE 
THE FIRST 
(KSP)+,OLDPC 
(KSP)+,OLDPS 
CPUERR, PCPUER 
OLDPCBAOPC 
CPUEXP 
1$ 

CPUTYP 
2$ 

PCPUER, CPUEXP 
3$ 

#-1,CPFLAG 
+1 
3$ 

#-1,CPFLAG 
+2 
3$ 

ERRCNT 

CPUEXP,PCPUER 
#"1,CPFLAG 
PCPUER, CPUERR 
OLDPS,-(KSP) 
OLDPC,-(KSP) 



AI^Al^******************** ********* 

MAKE FLAG ZERO IF FIRST TIME 

NEGATIVE ONE FOR A FLAG 

BRANCH IF FIRST TIME IN 

INDICATE TO APT A FATAL ERROR OCCURED 
;I HAVE ENTERED THIS ROUTINE BEFORE 
ERROR. THE SECOND ENTRY ADDRESS IS ON 
CONDITION IS PROBABLY STILL LOCKED UP. 

SAVE RETURN ADDRESS IN CASE OF LOOP 

SAVE OLD PSW IN CASE OF LOOP 

SAVE CPU ERROR REGISTER 

SAVE PC+2 AT TIME OF ABORT 

SEE IF ANY CONDITION WAS EXPECTED 

BRANCH IF NO TRAP WAS EXPECTED 

SEE IF THIS WAS AN 11/44 

BRANCH TO CONTINUE IF AN 11/24 

SEE IF EXPECTED ERROR OCCURED 

BRANCH IF ERROR CODES MATCH 

MAKE FUG NEGATIVE ONE FOR NEXT TIME 

NOT THE CORRECT CPU TRAP THROUGH 4 

SKIP NEXT INSTRUCTION 

MAKE FLAG NEGATIVE ONE FOR NEXT TIME 

UNEXPECTED CPU TRAP THROUGH 4 

SKIP NEXT INSTRUCTION 

INCREMENT ERRCNT TO SHOW AN ERROR FOR 11/24 

PUT EXPECTED CWTENTS IN PCPUER 

MAKE FLAG NEGATIVE ONE FOR NEXT TIME 

CLEAR CPU ERROR REGISTER 

PUSH OLD PSW BACK ON STACK 

PUSH RETURN ADDRESS BACK ON STACK 

RETURN FROM INTERRUPT OR ABORT 
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E 
37 



SEQUENCE 43 



2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 



003372 
003374 
003376 
003400 
003404 



003406 
00341 ■» 
003416 
003422 
003430 
003436 
003444 
003446 
003454 
003462 
003466 
003472 



005227 
^77777 
001403 
005237 
000000 



011637 
012637 
012637 
013737 
013737 
013737 
104003 
042737 
012737 
013746 
013746 
000006 



020142 



001340 
001342 
001344 
177572 
177574 
177576 

177776 
^77777 
001344 
001342 



.S8TTL MEMORY MANAGEMENT TRAPS AND ABORTS HANDLER ROUTINE 

;* 

;* 
;* 
;* 
;* 



THIS ROUTINE WILL HANDLE ALL SPURIOUS MEMORY MANAGEMENT TRAPS 
AND ABORTS, IT WILL REPORT TH' CONDITION OF ALL THE MEMORY 
MAMAGEMENT STATUS REGISTERS, A.D THEN RETURN TO THE TEST AND 
TRY TO CONTINUE RUNNING, 



• ************ 

MMTRAP 
MMFLA6 



;FIRST 
; CONDI 
10$: 



001350 
001352 
001354 

177572 
003374 



1$: 



: INC 
: .WORD 

BEQ 

INC 

HALT 

ERROR. 

TiON IS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

ERROR 

6IC 

MOV 

MOV 

MOV 

RTT 



iPO^ ;MAKE FLAG ZERO IF FIRST TIME 

-1 ;FLA6 SHOULD BE NEG ONE 

10$ ;8RANCH IF FIRST TIME INTO ROUTINE 

SMSGTY /INDICATE TO APT A FATAL ERROR OCCURED 
;I HAVE ENTERED THIS ROUTINE BEFORE I FINISHED REPORTING THE 
THE SECOND ENTRY ADDRESS IS ON THE STACK AND THE FIRST ERROR 
PROBABLY STILL LOCKED UP 



(KSP),BADPC 

(KSP)+,OLDPC 

(KSP)+,OLDPS 

MMRO,PMMRO 

MMR1,PMMR1 

MMR2,PMMR2 

#177776, MMRO 
Jt'-UMMFLAG 
OLDPS,-(KSP) 
OLDPC,-(KSP) 



;SAVE PC AT TIME OF ABORT OR TRAP 
;SAVE RETURN ADDRESS IN CASE OF LOOP 
;SAVE OLD PSW IN CASE OF LOOP 
;SAVE STATUS REGISTER 
;SAVE AUTO INC/DEC REGISTER 
;SAVE VIRTUAL ADDRESS REGISTER 
/UNEXPECTED M.M. ABORT OR TRAP 
; CLEAR ALL BITS EXCEPT 
/RESTORE A NEGATIVE ONE TO FLAG 
;PUSH OLD PSW ONTO STACK 
;PUSH RETURN ADDRESS ON STACK 
/RETURN TO MAIN PROGRAM 



CKKUAEO 11/24/A^ U8I MAP MACRO H1 113 11-JAN-82 11:27 PAGE 

SUBROUTINE TO TEST A LOCATION FOR WRITEABILITY 



F 
38 



SEQUENCE 44 



21A0 
2U1 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 



003474 
003500 
003504 
003506 
003512 
003514 
003520 
003526 
003530 
003532 
003534 
003536 
003544 
003546 
003552 
003556 
003562 
003564 
003570 
003572 
003576 
003602 
003604 
003610 
003612 
003616 
003622 



005237 
005737 
100011 
022705 
001417 
012705 
012737 
000411 
005227 

Mini 

001004 
012737 
000402 
006337 
005037 
005037 
010210 
023702 
001414 
004737 
177736 
000407 
005737 
001402 
013743 
062716 
000207 



.S8TTL SUBROUTINE TO TEST A LOCATION FOR WRITEABILITY 

* THIS SUBROUTINE CLEARS A TEST LOCATION, LOADS THE LOCATION USING 
THE MAP REGISTER, AND DETERMINES U THE LOCATION WAS LOADED. IF 



001174 
005774 

020230 

020230 
^00001 



IT WAS- RETURN IS NORMAL TO THE TEST. IF NOT, THE PC ON THE 
STACK IS UPDATED BY 2 AND THEN A RETURN IS EXECUTED. 



005774 



000001 005774 

005774 
037776 
001330 

037776 

005076 
177734 

001330 

001174 
000002 



TSTLOC: INC 
TST 
BPL 
CMP 
6EQ 
MOV 
MOV 
BR 
INC 
.WORD 
BNE 
MOV 
BR 
ASL 
CLR 
CLR 
MOV 
CMP 
BEQ 
JSR 
.WORD 
BR 
TST 
BEO 
MOV 
AID 
RTS 



1$: 

FTTHRU: 



1$: 

NEXT: 



1$: 
2$: 



Dr * Uri^ 1^ * )^ * t ifr *«i^ *i^lk 4r 4r 
$TMPO 

FLOATR 

1$ 

^$DDW1,R5 

NEXT 

#$DDW1 ,R5 

*8I TO, FLOATR 

NEXT 

-1 

1$ 

*8IT0, FLOATR 

NEXT 

FLOATR 

37776 

PCPUER 

R2,(R0) 

37^76, R2 

2$ 

PCCHKLMA 

LMAHI,LMALOW 

2$ 

PCPUER 

1$ 

$TMP0,-(R3) 

#2,(SP) 

PC 



INCREMENT REGISTER COUNTER 

SEE IF BIT 15 OF FLOATR IS SET 

BRANCH IF STILL PLUS 

SEE IF R5 IS POINTING TO UPPER DDW 

BRANCH IF SO - ALL DONE 

MOVE ADDRESS OF DDWl TO R5 AND 

RESET BIT IN FLOATR 

BRANCH OVER ASL 

INCREMENT NEXT LOCATION FOR FIRST TIME THROUGH CHECK 

FIRST TIME ENTRANCE FLAG 

BRANCH IF NOT FiaST TIME 

MOVE BIT TO LOCATION FLOATR 

BRANCH OVER THE ASL 

ROTATt" THE TEST BIT TO THE LEFT 

CLEAR TEST LOCATION 

CLEAR ERROR LOCATION 

TRY TO LOAD TEST CELL THROUGH MAP 

SEE IF TEST LOCATION WAS LOADED 

BRANCH U IT WAS LOADED 

60 SEE IF USER SAYS THIS IS AN 11/24 WITH US MEMORY 

ADDRESSES OF LMA REGISTERS 

RETURN IS HERE IF OK 

SEE IF A TIMEOUT OCCURED 

BRANCH OVER SPECIAL STACK PUSH IF NOT 

PUSH REGISTER NUMBER THJ^T TIMED CUT ON SPECIAL STACK 

CORRECT PC RETURN FOR LOAD FAILURE INDICATION 

RETURN FROM THIS SUBROUTINE 
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SEQUENCE 45 



2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
21 8A 
2185 
2186 
2187 
2188 
2189 



00362A 
003632 
003636 
00364A 
003646 



05667^ 
005-. 66 
0'o637 
012616 
000207 



SSTTL SUBROUTINE TO LOAD DATAOR AND DATAND 

• 
ii 
* 



THIS SUBROUTINE ASSUMES THE DATA TO BE ANDED ^hD ORED HAS BEEN PUT 
ON THE STACK BEFORE THIS SUBROUTINE WAS CALLED. IT BIT SETS THE 
DATA ONTO DATAOR, COMPLEMENTS THE DATA AND BIT CLEARS IT ONTO 
DATAND. 



000002 001246 DATEXT: BIS 
000002 COM 

000002 001242 BIC 

MOV 
RTS 



• **i^#****i^*t^**^**i^**ilr***t*****4r****ilrilr**ft****1^************ ******* 



2(SP), DATAOR 

2(SP) 

2 (SP;, DATAND 

(SP)+,(SP) 

PC 



;SET THE 'OR' PATTERN TO DATAOR 
; COMPLIMENT THE DATA 
; CLEAR THE 'AND' PATTERN TO DATAND 
; CLEAN THE STACK FOR THE RETURN 
; RE TURN 
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SEQUENCE 46 



2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 



,S8TTL SUBROUTINE TO LOAD PATAOR AND PATAND 



003650 056637 000002 001254 

003656 005166 000002 

003662 046637 000002 001252 

003670 012616 

003672 000207 



THIS SUBROUTINE ASSUMES THE DATA TO BE ANDED AND 0«ED HAS BEEN PUT 
ON THE STAU BEFORE THIS SUBROUTINE WAS CALLED. IT BIT SETS THE 
DATA ONTO PATTOR, COMPLEMENTS THE DATA AND BIT CLEARS IT UNTO 
PATAND. 



;ft**«r*«r***M*<r*- ******4ft***4ftftftftftftft4rftftilr«t(lrft4t*ftftft4r*i^ftftftit«ftft*ftl^ik^*i^«t 

;SET THE 'OR* PATTERN TO PATTOR 

.-COMPLIMENT THE PATTERN 

; CLEAR THE 'AND' PATTERN TO PATAND 

; CLEAN UP STACK FOR RETURN 

; RE TURN 



PATEXT: BIS 


2(SP). PATTOR 


COM 


2(SP) 


8IC 


2 (SP), PATAND 


MOV 


(SP)+,(SP) 


RTS 


PC 
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SEQUENCE 47 



2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
?215 
2216 
2217 
2218 
t^219 
2220 
2;^21 
2222 
22.?3 
22l'4 
2225 
2226 
222'^ 
222a 
222V 
2230 
2231 
2.?32 
2233 
2234 
2235 
2236 
2237 
22^B 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 

2249 
2250 
2251 
2252 
2253 



003674 
003676 
003702 
003706 
003712 
003716 
003720 
003724 
003730 
003734 
003736 
v')03742 
003746 
003754 
003762 
003764 
003772 
004000 
004002 
004006 
004012 
004020 
004024 
004026 
004034 
004040 
004046 
004052 
004060 
004062 
004070 
004076 
004102 
004104 



010546 

016605 

072527 

04P705 

022705 

001002 

012705 

010537 

050537 

005105 

040537 

016605 

013766 

022737 

00100? 

01273. 

01663? 

000411 

042705 

072527 

042766 

060566 

01 2605 

056637 

005166 

046637 

m 

il406 

116637 

016(537 

012666 

0?020^ 



000004 
1 77766 
177700 
000074 

000077 
001206 
001240 

001234 
OOOC04 

(■ ..,06 

176000 
000006 
160000 
000006 



900004 
000004 
000004 

14 



?' 



THIS SUBROUTINE ASSUMES THE CONTENTS OF THE PAR, AND THE VIRTUAL 
ADDRESS HAVE BEEN PUT ON THE STACK. IT TAKES THE PAR, SHIFTS IT 
TO EXPOSE THE UPPER ADDRESS BITS, BIT SETS THEM TO ADDROR+2, COM- 
PLIMENTS THE CONTENTS AND BIT CLEARS ADRAND+2, AFTER RELOADING 
THE PAR IN R5, IT SHIFTS TO GET THE LOWER 16 BIT EQUIVALENT AND 
ADDS THE VIRTUAL ADDRESS TO CREATE THE PHYSICAL LOWER 16 BITS. 
THEN IT BIT SETS THEM TO ADDROR, COMPLIMENTS THE CONTENTS AND 
BIT CLEARS ADRAND, ANOTHER COMPLIMENT RRINGS THE STATE BACK TO 
ITS ORIGINAL STATE, THIS SUBROUTINE LEAVES WITH THE LOWER 16 
BITS AND THE UPPER 6 BITS ON THE STACK, AND ARE TO BE REMOVED IN 
THAT ORDER, AND MUST BE REMOVED AFTER RETURN. 

***** **************** t*ikik****«t**)k«*it ******* «*ii^4i^**tki^i^<^*<r*«<k*^<^tk 



n000Q4 
000002 
000002 



000004 
001206 

005766 
005764 



000006 

001236 

001232 

005766 

005764 
005766 



ADREXT: MOV R5.-{SP) 

MOV 4(SP),R5 

ASH #-10.-R5 

BIC #177760, R5 

CMP #74,R5 

BNE IS 

MOV *77,R5 

1$: MOV R5,STMP5 

BIS R5,ADDR0R+2 

COM R5 

BIC R5,ADRAND+2 

MOV 4(SP),R5 

MOV $TMP5,4(SP) 

CMP #74,$TMP5 

BNE 2$ 

MOV #77, EADRES+2 

MOV 6(SP),EADR£S 

BR 3$ 

2$: BIC #176000, R5 

ASH #6,R5 

BIC #160000, 6(SP) 

ADD R5,6(SP) 

3$: MOV (SP)+, R5 

BIS 4 <SP), ADDROR 

COM 4(SP) 

BIC 4 (SP), ADRAND 

COM 4(SP) 

CMP #77, EADRES+2 

6EQ 4$ 

MOV 4(SP),EADR£S 

MOV 2<SP), EADRES+2 

4$: MOi* (SP) + , 2(SP) 

TST (SP)+ 

RTS PC 



SAVE R5 

MOVE PAR CC^ 'ENTS TO R5 FOR SHIFTING 

SHIFT R5 TC fHE RIGHT 10 PLACES 

CL^'AR SITS 15 TO 6 

SEE IF I/O PAGE 

BRANCH IF NOT 

REStT R5 ro 77 

MOVE OBTAINED UPPER 6 BITS TO $TMP5 FOR FUTURE TRANSFER 

SET THE 'OR' PATTERN OF UPPER 6 BITS TO AODROR+2 

COMPLIMENT R5 

CLEA9 THE 'AND' PATTERN OF UfPER 6 BITS TO ADRAND+2 

PUT PAR CONTENTS BACK IN Ri) 

MOVE UPPER 6 BITS OF PHYSICAL ADDRESS ON STACK 

SEE IF I/O PAGE 

BRANCH IF NOT 

SET 77 IN UPPER ERROR LOCATION 

SET LOWER ADDRESS IN LOWER EHROR LOCATION 

BRANCH OVER PREP 

STRIP OFF UPPER 6 BITS OF PAR LOfaENlS 

SHIFT REMAINING BITS 6 PLACES TO THE LEFT 

STRIP OFF PAR PAGE BITS FROM ADDRESS TO FORM OFFSET 

FORM LOWER 16 BITS OF ADDRESS 

RESTORE R5 

SET THE 'OR' PATTERN TO ADDROR 

COMPLIMENT THE ADDRESS 

CLEAR THE 'AND' PATTERN TO ADRAND 

RETURN ADDRESS TO ITS ORIGINAL STATE 

SEE IF I/O PAGE IN UPPER LOCATION 

BRANCH TO EXIT IF SO 

PUT LOWER 16 BITS IN ERROR STATUS LOCATION 

PUT UPPER 6 BITS IN ERROR STATUS LOCATION 

PUT RETURN ADDRESS WHERE IT BELONGS 

CLEAN STACK 

RETURN 
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SEQUENCE 48 



225A 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2.>64 
2^'>5 
2:66 
2267 
2268 
2269 
2270 
2271 
22/? 
2273 
227A 
2275 
2>76 
2277 
2278 
:279 
2280 
2281 
?282 
2283 
2284 
2285 
2286 
2237 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 



004106 
004112 
004114 
004116 
iX)4124 
004130 
004134 
0041^2 
004146 
004152 
•:)04160 
004162 
004164 
004170 
004174 
004176 
004202 
004206 
004210 
004216 
004220 
004226 
004232 
004234 
004240 
004244 
004250 
004256 
004262 
004264 
004272 
004274 
004300 
004304 
004306 
004310 
004312 



005737 
001070 
011646 
062766 
012703 
'704 
012737 
005077 
012377 
013737 
012300 
011001 
012337 
020137 
OOU-f-i 
00C37 
177736 
000436 
032777 
001406 
017737 
004737 
000404 
011037 
010137 
162703 
013737 
005037 
C11646 
012737 
000207 
062703 
062706 
077460 
005726 
000207 
000000 



004312 



000004 
004314 
000013 
004162 
175134 
175126 
001256 



001310 
001310 

005076 
177734 

004000 

175064 

005000 

001 1 76 
001200 
00000? 
001310 
005766 

000001 

000002 
000002 



.SBTTL SUBROUTINE TESTING RELOCATION ADDER 

* 
It 

*1$: 

* 

******************************* 



THE FOLLOWING SUBROUTINE IS USED IN TESTS 13 AND 16, AND USES THE DATA 
BANK FOLLOWING TO EXECUTE THE LOOPS IN THE TEST. R3 IS THE SPECIAL 
•STACK' POINTER, INITIALIZED AT THE BEGINING TO THE R3STAK DATA BANK. 
THE STACK POINTER IS ADVANCED 3 WORDS FOR EACH PASS. CALL THIS SUB- 
ROUTINE IN THIS MANNER: 

CLEAR $TMP4 - USED IN ERROR RETURN 

60 DO THE TEST 

RETURN IS HERE FOR ERROR 

BRANCH BACK TO CONTINUE TEST 



CLR 

JSR 

ERROR 

BR 



$TMP4 
PCMAPADD 
+ERRORNUHBER 
1$ 



000002 
001106 
172354 



174720 
001176 



005764 
004312 



MAPADD: TST LOEFLG 

BNE 3$ 

MOV (SP),-(SP) 

ADD #4,2(SP) 

MOV XfRiS TAK,R3 

MOV #13, R4 

MOV #2$,$LPERR 

CLR SLRE6U 

1$: MOV (R5)+,aLREGL 

MOV LOWEST, KIPAR6 

MOV (Rj;) + ,RO 

2$: MOV (R0),R1 

MOV (R3) +,UPM24L 

CMP R1,USM?^L 

BEQ 4$ 

JSR PCCHKLMA 

.WORD LMiVHI,LMALOW 

BR 4$ 

BIT #BIT11,a3WR 

BEQ 25$ 

MOV aUBM24L-$TMP1 

oSR PC-PTMP2 

BR 26$ 

25$; MOV (HO), $TMP1 

MCV Rl,$rMP2 

26$; sue M2.n5 

MOV U8M2a,EADRES 

CLR EADRES+2 

MOV (SP),-(SP) 

MOV *n, LOEFLG 

RTS PC 

3$: ADD U2.R3 

ADD if?..SP 

4$: SOB R4,1$ 

TST (5P)+ 

RTS PC 

LOEFLG: .WORD 



SEE IF THIS ENTRY WAS AN ERROR 

GO CONTINUE TEST 

MOVE RETURN UP ONE NOTCH 

CREATE ADDRESS ON STACK FOR FINAL RETURN 

SET THE SPECIAL STACK POINTER 

SET THE LOOP COUNTER 

SET LOOP ON ERROR POINTER TO 2$ 

CLEAR UPPER BITS OF MAPPING REG 

LOAD LOWER BITS OF MAPPING REG 

LOAD PAR6 WITH ADDR OF LOWEST MAP REG 

SELECT PAR6, OFFSET IS AUGEND 

READ LOCATION DEFINED BY 4TH WORD IN TABLE 

MOVE ANTICIPATED PHYSICAL ADDRESS TO UBM24L 

SES IF THE MAP'S FETCH WAS CORRECT 

BRANCH IF FETCHED DATA MATCHES ADDRESS 

60 SEE IF USER SAYS THIS IS AN 11/24 WITH UB MEMORY 

ADDRESSES OF LMA REGISTERS 

RETURN IS HERE IF OK 

CHECK TO SEE IF 11/24 WITH U8 MEMORY ONLY 

BRANCH IF NOT 

GET EXPECTED DATA FOR ERROR CALL 

GO PREPARE $TMP2 FOR ERROR CALL 

GO CALL ERROR 

GET EXPECTED DATA FOR ERROR CALL 

GET DATA FROM R1 FOR ERROR CALL 

ANTICIPATF ERROR LOOPING BY UNDOING AUTOINC 

PUT ADDRESS IN EADRES FOR ERROR CALL 

CLEAR UPPER LOCATION 

PUT AN FXTRA RETURN ON FOR POSSIBLE ERROR LOOPING 

SET FLAG SHOWING ERROR CALL WAS CALLED 

EXIT TO EMROR CALL AT TEST 

RESTORE AUTOINC, ERROR LOOPING NOT DONE 

CLEAN EXTRA RETURN OFF STACK - LOOPING NOT DONE 

SUBTRACT 1 FROM R4 AND BRANCH IF NOT 

EXPOSE NEXT TEST RETURN ADDRESS 

EXi". TO NEXT TEST 

LOOP ON ERROR FLAG LOCATION 



CKKUAEO 11/2A/AA UBi MAP MACRO M1113 
SUBROUTINE TESTING RELOCATION ADDER 

2305 
230A 
2305 
2306 
2307 
2308 

2309 00A3V4 060000 UOOOO 060000 R3STAK: 

2310 00A322 052S2A H5252 057776 

2311 00A330 045252 152524 057776 

2312 004336 050420 150420 061040 

2313 004344 054630 144210 061040 

2314 004352 044210 154630 061040 

2315 004360 056734 U2104 061040 

2316 004366 042104 156734 061040 

2317 004374 057776 141042 061040 

2318 004402 041042 157776 061040 

2319 004410 057776 140002 060000 
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SEQUENCE 49 



DATA fN THE R3STAK DATA BANK BELOW IS ARRANGED IN THE FOLLOWING ORDER: 
»>NQTE«<: THE 'OFFSET* COLUMN IS NOT IN THE STACK DUE TO THE DELIMITER 
(;) BETWEEN THE EXPECTED ADDRESS AND THE OFFSET VALUES 
IVRTUALlPHYSCLi 



BASE lADDRES'ADDRESIOFFSET 
1*^ 'f^CTDI 

WORD 060000 , 1 40000 , vcOOOC ; 000000 

WORD 052524,145252,057776:005252 

WORD 045252 , 1 52524 , 057776; 01 2524 

WORD 050420J504t;\ ^'!040;010420 

WORD 054630 J442! .(?V]040;004210 

WORD 044210,1546? ^ i04Q;014630 

WORD 056734 J 42*i v., olC40;002104 

WORD 0421 04, 156734, 061 040; 01 6734 

WORD 057776, 141042, 061040;001042 

WORD 041042 J 57776, 061040;017776 

WORD 057776, 140002, 060000;000002 



R4 VALUE 

R4=13 

R4=12 

R4=11 

R4=10 

R4=7 

R4=6 

R4=5 

R4=4 

R4=3 

R4=2 

R4=1 
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11-JAN-82 
ADDER 



11:27 PAGE 
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SEQUENCE 50 



2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2?3d 
:.^39 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 

2372 
2373 
2374 
2375 
2376 



004416 
004422 
004424 
004426 
004434 
004442 
004446 
004454 
004460 
004464 
004472 
004500 
004506 
004512 
004520 
004522 
004526 
004534 



004540 
004544 
004550 
004552 
004560 
004562 
004566 
004574 
004576 
004600 
004602 
004604 
004610 
004614 
004616 
004624 
004626 
0P4632 
00/^634 
004640 
004644 
004646 
004654 
004662 
004670 
004672 
004674 



005737 
001132 
011646 
062766 
012737 
005077 
012777 
012701 
012700 
012737 
013737 
012737 
005037 
062737 
001002 
005237 
012737 
013710 



005037 
005737 
001050 
012737 
011103 
005037 
0227^7 
001436 
011002 
02U203 
001433 
004737 
177736 
000426 
032777 
001403 
004737 
000402 
011037 
010337 
011646 
013737 
015737 
012737 
000207 
005227 
\77777 



004312 



000004 
y77777 
174634 
020000 
100100 
150000 
000277 
001256 
004552 
001330 
OIOUOO 

001312 
000020 
001364 



001326 
001330 

000040 

001326 
000040 



005076 
177734 

004000 

005000 

001200 
001176 

001310 
001312 
000001 



000002 
004674 

174624 



172350 
172354 
001106 

001310 
001326 



;* 



.SBTTL SUBROUTINE TO TEST CARRY PROP Of MAP'S RELOC ADDER 

THIS SUBROUTINE IS USED BY TESTS 14 AND 17. CODE CALLING THIS 

* ROUTINE II AS FOLLOWS: 

* CLR $TMP4 ; CLEAR $TMP4 - USED \W ERROR RETURN 
*LAB: JSR PCJCPMRA ;G0 DO THE TEST 

* ERROR +211 ;RETURN IS HERE IF AN imo^ 

* BR LAB ;8RANCH BACK TO CONTINUE TEST 



SU8' 



TCPMRA: TST LOEFLG 

BNE 4$ 

MOV (SP), -(SP) 

ADD #4,2(SP) 

MOV n-^ ,35$ 

CLR 8LRE6U 

MOV ^20000-aLREGL 

MOV AflOOIOO^RI 

MOV ^150000>R0 

MOV M277.KlhM 

MOV LOWEST, KIPAR6 

MOV /!'2$,$LPERR 

1$: CLR PCPUER 

ADD #10000, UBM24L 

BNE 15$ 

INC U8M24U 

15$: MOV j;f20,CPUEXP 

MOV DATA,(RO) 

'OF MEMORY IT SELECTS PAR 

; SELECT THE LOWEST USABLE 

;MAP REGISTER 0. 



TEST ERROR FLAG TO SEE IF THIS ENTRY IS FROM ERROR 

BRANCH TO CONTINUE TEST IF SO 

MOVE RETURN ADDRESS UP ONE NOTCH 

CREATE CORRECT FINAL RETURN ADDRESS 

INITIALIZE FLAG AS NEGATIVE ONE 

CLEAR UPPER 6 BITS OF MAP REG 

LOAD 4K BASE INTO MAP REGISTER 

LOAD BITS TO SELECT PAR 4, OFFSET 100 

LOAD BITS TO SELECT PAR 6. OFFSET 2K 

START WITH PHYSICAL 6K 

LOAD PAR 6 WITH MAP REG'S ADDR 

SET LOOP ON ERROR POINTER TO 2$ 

CLEAR TIME OUT FI.A6 

FORM EXPECTEP LMA FOR POSSIBLE USE 

BRANCH AROUND U8M24U INCREMEN) IF NOT ZERO 

INCREMENT \}?PIR LOCATION 

EXPECTING A UNIBUS TIME OUT DURING TEST 

THIS LOAD WILL TIME OUT WHEN YOU HAVE REACHED THE TOP 
6 WHICH WILL PUT ADDR <XXX1^0000 ON THE UNIBUS. THE X'S WILL 
MAPPING REGISTER. THE DEFAULT CASE IS 00010000, SELECTING 







CLR 






TST 






BNE 


001326 


2$: 


MOV 
MOV 
CLR 


001330 




CMP 

BEQ 

MOV 

CMP 

BEQ 

JSR 

.WORD 

BR 

BIT 


174312 








BEQ 






JSR 






BR 




25$: 


MOV 




26$: 


MOV 
MOV 


005764 




MOV 


005766 




MOV 


004312 




MOV 
RTS 




3$: 


INC 




35$: 


.WORD 



CPUEXP 

PCPUER 

3$ 

jVNEXMEM, CPUEXP 

(R1),R3 

CPUEXP 

#NEXMEM, PCPUER 

3$ 

(R0).R2 

R2,R3 

3$ 

PCCHKLMA 

LMAHI,LMALOW 

3$ 

*BITll,aSWR 

25$ 

PC,PTMP2 

26i 

(R0),$TMP2 

R3,$TMP1 

(SP),-(SP) 

U8M24L,EADRES 

UBM24U,EADRES+2 

#1, LOEFLG 

PC 

(PC) + 

-1 



CLEAR CPUEXP - DON'T EXPECT TRAPS FOR A WHILE 

SEE IF THERE WAS MAIN MEMORY 

BRANCH U NO MAIN MEMORY FROM UNIBUS 

POSSIBLE CACHE NON-EXISTENT MEMORY 

READ TEST LOCATION VIA FASTBUS 

CLEAR CPUEXP - DON'T EXPECT TRAPS FOR A WHILE 

WAS THIS CACHE NON-EXISTENT MEMORY 

BRANCH IF NON-EXISTENT MEMORY 

READ TEST LOCATION VIA UNIBUS MAP 

COMPARE TEST DATA R2=MAP DATA, R3=FASTBUS DATA 

BRANCH IF IT WAS THE SAME 

60 CHECK FOR 11/24 WITH UB MEMORY 

ADDRESSES OF LMA REGISTER^ 

RETURN IS HERE if OK 

SEE IF THIS IS AN 11/24 WITH UB MEMORY ONLY 

BRANCH IF NOT 

60 PREPARE $TMP2 FOR ERROR CALL 

BRANCH TO CALL ERROR 

GET RECEIVED DATA FOR ERROR CALL 

GET EXPECTED DATA FOR ERROR CALL 

PUT AN EXTRA RETURN ADDRESS ON STACK FOR POSSIBLE 

LOAD LOWER 16 BITS OF ADDRESS FOR ERROR CALL 

LOAD UPPER 6 BITS OF ADDRESS FOR ERROR CALL 

SET FLA6 SH0WIN6 AN ERROR RETURN 

RETURN TO THE ERROR 

INCREMENT ONE TIME ENTRANCE FLAG 

FLAG 



LOUP 
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M 4 
4^-1 



SEQUENCE 



2377 004676 


001006 






BNE 


2378 004700 


013737 


172350 


001356 


MOV 


2379 004706 


000402 






BR 


2380 004710 


062706 


000002 


4$: 


ADD 


2381 004714 


062737 


000100 


001364 5$: 


ADD 


2382 004722 


062737 


000100 


172350 


ADD 


2383 004730 


062777 


010000 


174342 


ADD 


2384 004736 


001263 






BNE 


2385 004740 


005277 


174336 




INC 


2386 004744 


022777 


000073 


174330 


CMP 


2387 004752 


103255 






BHIS 


2388 004754 


005237 


001364 




INC 


2389 004760 


042737 


177700 


001364 


BIC 


2390 004766 


052737 


000300 


001364 


BIS 


2391 004774 


005726 






TST 


2392 004776 


000207 






RTS 



5$ 

KIPAR4,RSIZE 

5$ 

#2 SP 

#l60,DATA 

#100,KIPAR4 

X'lOOOO.aLREGL 

1S 

aiREGU 

#73, aiREGU 

1$ 

DATA 

#177700. DATA 

#300, DATA 

(SP) + 

PC 



BRANCH If l*yE BEEN HERE BEFORE 

SAVE UPPER LIMIT OF MEMORY 

BRANCH OVER ERROR LOOP CORRECTION 

POP EXCESS RETURN ADDRESS OFF STACK 

CHANGE PATTERN FOR NEXT LOAD 

ADD 2K TO PAR4 

ADD 2K TO MAP REGISTER 

BRANCH If MAP REGISTER NOT ZERO 

ADD ONE TO UPPER 6 BITS OF MAP REG 

SEE If TOP 128K BLOCK HAS BEEN PASSED 

BRANCH IF NOT PAST IT 

CHANGE DATA PATTERN FOR NEXT PASS 

CLEAR UPPER 10 BITS OF DATA PATTERN 

START WITH 3XX IN DATA PATTERN 

POP STACK EXPOSING FINAL RETURN ADDRESS 

EXIT 



I — - 
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SUBROUTINE TO OBTAIN CONTENTS OF LMA CONTENTS LOCATION 



N 
45 



SEQUENCE 52 



2393 

2394 005000 

2395 005004 

2396 005010 

2397 005014 

2398 005016 

2399 005022 

2400 005026 

2401 005030 
240i: 005034 

2403 005040 

2404 005046 

2405 005054 

2406 005062 

2407 005070 

2408 005074 



01370b 
072527 
042705 
010546 
013705 
072527 
062605 
013746 
010537 
013737 
042737 
052737 
017737 
012637 
000207 



177734 
177772 
176177 

177736 
000012 

172L46 
172346 
177734 
100000 
060000 
174112 
172346 



001200 
001200 
001200 
001200 



.S8TTL SUBROUTINE TO 

PTMP2: MOV LMAL0W,R5 

ASH y^-6,R5 

BIC /f176177,R5 

MOV r;5.-(SP) 

MOV uMAHI,R5 

ASH ^10.. R5 

ADD (SP)+,R5 

MOV KIPARS,-(SP) 

MOV R5,KIPAR3 

MOV LMAL0W,$TMP2 

BIC ^8IT15,$TMP2 

BIS ^60000, $TMP2 

MOV a$TMP2,$TMP2 

MOV (SP)+, KIPAR3 

RTS PC 



OBTAIN CONTENTS OF LMA CONTENTS LOCATION 

;MOVE LMA LOW REGISTER CONTENTS TO R5 FOR SHIFTING 

;SHIFT PHYSICAL UPPER 3 BITS TO THE RIGHT 6 PLACES 

; CLEAR ALL BUT THE THREE %WUMXi BITS 

;SAVE THIS NUMBER ON THE STACK 

;MOVE LMA HIGH REGISTER CONTENTS TO P5 FOR SHIFTING 

;SHIFT LOWER 6 BITS TO THE LEFT 10 PLACES 

;ADD PREVIOUSLY SHIFTED CONTENTS TO R5 

;SAVE PAR3 ON STACK 

;MOVE OBTAINED PAR VALUE TO PAR3 

;GET ADDRESS MAP CREATED 

; CLEAR BIT 15 AND 

;SET BITS 13 % K TO PUT PAR PAGE 3 IN $TMP2 

;MOVE CONTENTS OF LOCATION TO $TMP2 

.'RESTORE PAR3 

;EXIT 
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SEQUL-NCE 53 



2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 



005076 
005104 
005110 
005116 
005122 
003130 
005132 
005134 
005136 
005142 
005146 
005150 
005154 
005156 
005160 
005164 



017637 
062716 
017637 
062716 
052777 
001413 
013746 
000000 
042716 
023726 
001004 
023737 
000000 
001402 
062716 
000207 



.S8TTL SUBROUTINE TO CHECK FOR 11/24 WITH UBMEMORY 



000000 005134 

000002 

000000 005154 

000002 

004000 174006 



177700 
001312 



; *****AA*ricA*A***^t^*Ai^*llr**i^*i^i^*«^ft******t.fr****«**t********ti^***i^i^« 



THIS Sl^ROUTJNE CHECKS THE SWITCH REGISTER TO SEE IF USER STATES THAT 
THIS IS AN 11/24 CPU WITH UNIBUS MEMORY ONLY. If NOT, AN EXIT IS 
EXECUTED WITH THE RETURN BEING UPDATED TO THE 2Nl> LOCATION AFTER THE 
JSR CALL. IF IT IS, THE LMA HIGH REGISTER IS CHECKED FOR BEING EQUAL 
TO THE CONTENTS OF UBM24U, (ASSUMED TO BE PRELOADED. THESE 6 BITS ARE 
THE VPPEH 6 BITS OF THE MAPPED ADDHESS FORMED BY THE MAP REGISTER 
LOGIC)- IF NOT, EXIT TO FUDGE RETURN. IF SO, THE LMA LOW REGISTER IS 
CHECKED. IT IS ASSUMED THAT LOCATION UeM24L CONTAINS THE EXPECTED 
PHYSICAL ADDRESS. IT COMPARES THE LMA LOW REGISTER WITH UeM24L, AND IF 
EQUAL, EXECUTES A RETURN WITHOUT THE FUDGING OF THE RETURN ADDRESS, 
OTHERWISE IT IS FUDGED. 



4ft**«f^«r*4«k* 



001310 
000002 



CHKLMA: 


MOV 




ADD 




MOV 




ADD 




BIT 




8EQ 




MOV 


10$; 


.WORD 




BIC 




CMP 




6NE 




CMP 


11$: 


.WORD 




6EQ 


1$: 


ADD 


2$; 


RTS 



ao(SP),io$ 

«,(SP) 

ao(SP),ii$ 

02 ASP) 

^6IT11,aSWR 

1$ 
a(PC)+,-(SP) 

*177700,(SP) 

U8M24U,(SP)+ 

1$ 

U8M24L,S(PC)+ 



2$ 

ff2A$P) 

PC 



;MOVE LMAHI ADDRESS TO ACCESS TO 10$ 

;ADVANCE TO NEXT PARAMETER 

;MOVE ',MALOW ADDRESS TO ACCESS TO 11$ 

; CORRECT RETURN OVER PARAMETER 

;SEE IF USER SAYS THIS IS AN 11/24 WITH UB MEMORY 

.-BRANCH OUT IF NOT 

;MOVE LMA HIGH REGISTER CONTENTS TO STACK 

.'LOCATION FOR ADDRESS TO ACCESS 

.'CLEAR ALL BUT LOWER 6 BrS (UPPER 6 BITS OF mDDRESS) 

;SEE IF UPPER 6 BITS ARE AS EXPECTED 

;BRANCH TO PREPARE FOR 2ND <?ETURN LOCATION IF NOT 

;SEE IF EXPECTED DATA WAS CLOCKED PROPERLY 

.-LOCATION FOR ADDRESS TO ACCESS 

.•BRANCH AROUND STACK RETURN FUDGE IF OK 

; FUDGE RETURN OVER NON-ERROR BRANCH 

;EXIT 



CKKUAEO 11/24/44 UBI MAP 


PRETEST DATA SETUP SUBROUTINE 


2441 






2442 






2443 005166 


011600 




2444 005170 


012037 


001362 


2445 005174 


012037 


001106 


2446 005200 


012037 


001100 


2447 005204 


013777 


001100 


2448 005212 


010016 




2449 005214 


010037 


001104 


2450 005220 


012737 


000001 


2451 005226 


000207 
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SEQUENCE 54 



173726 



OvJl212 



.SBTTL PRETEST DATA SETUP SUBROUTINE 

(SP), RO ;MOVE RETURN ADDRESS TO RO 

(R0)+,NXTTST ;SAVE STARTING ADDRESS OF NEXT TEST FOR ESCAPE ON PAR ERRORS 

(RO)+,$LPERR ;SET LOOP ON ERROR POINTER TO 20$ IN TEST 

(RO)+,$TSTNM ;SETUP TEST NUMBER AND CLEAR THE ERROR FLAG 

STSINM-SDISPLAV ;DISPLAY TEST NUMBER FOR ALL TO SEE 

RO,(SP) ; FUDGE RETURN OVER PARAMETERS 

RO,$LPADR ;SET LOOP ON TEST POINTER TO START OF TEST 

*1,$TJM£S ;RESET ITERATIONS COUNTER TO 1 

PC ;RETURN TO BEGIN TEST 



PRETST: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 



J 



CKKUAEO 11/24/44 UBI MAP 
DISABLE CHECK SUBROUTINE 

2452 
2453 
2454 
2455 
2456 
2457 
2458 

2459 005230 105737 020162 

2460 005234 001411 

2461 005236 105737 020163 

2462 005242 100006 

2463 005244 033715 005774 

2464 005250 001403 

2465 005252 011537 001176 

2466 005256 000402 

2467 005260 0b2716 000002 

2468 005264 000207 
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SEQUENCE 55 



.SBTTL DISABLE CHECK SUBROUTINE 

; ;^*i^**tilr******^iV***i^*t''^*4t *********** ****i^ilr««rilrilr**ilr******i^i^ilr** 1^*1^ 

;* 

THIS SUBROUIINE CHECKS THE STATUS OF THE BIT POINTED TO IN FLOATR 
IN THE LOCATION POINTED TO BY R5 (EITHER SDDWO OR SDDWD, AND DETER- 
MINES IF THE LOCATION SHOULD BE DISABLED. 



;* 
;* 
DSA8LD: 



1$: 
2S; 



TSTB $ENV 

BEQ 1$ 

TST8 $ENVM 

BPL 1$ 

BIT FL0ATR,(R5) 

BEO 1$ 

MOV (R5),$TMP1 

BR 2$ 

ADD ftZASP) 

RTS PC 



;TEST APT STATUS 

;BRANCH IF NOT APT 

;P0ES APT SAY TO SIZE 

;BRANCH TO EXIT IF NOT 

;TEST DISABLE STATUS 

;BRANCH IF IT SHOULD BE DISABLED 

;MOVE CONTENTS OF DEVICE DESCRIPTOR WORD TO $THP1 

;BRANCH OVER RETURN CORRECTION 

; CHOCOLATE FUDGE RETURN OVtR ERROR CALL 

;RETURN WITHOUT CORRECTING STACK SO ERROR WILL CALL 



CKKUAEO 11/2A/44 UBI MAP 
ENA9LE CHECK SUBROUTINE 

2469 
2470 
2471 
2472 
2473 

2474 005266 105737 020162 

2475 005272 001411 

2476 005274 105737 020163 

2477 005300 100006 

2478 005302 033715 005774 

2479 005306 001003 

2480 005310 011537 001176 

2481 005314 000402 

2482 005316 062716 000002 

2483 005322 000207 
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SEQUENCE 56 



.S8TTL ENABLE CHECK SUBROUTINE 



** 



;* 



ENA8L0: 



1$: 
2$J 



THIS SUBROUTINE CHECKS THE STATUS OF THE BIT POINTED TO IN FLOATR 
IN THE LOCATION POINTED TO BY R5 (EITHER $DDWO OR $DDW1), AND DETER- 
MINES IF THE LOCATION SHOULD BE ENABLED. 

;TEST APT STATUS 

;BRANCH IF NOT APT 

;DOES APT SAY TO SIZE 

;BRANCH TO EXIT IF NOT 

;TEST DISABLE STATUS 

;BRANCH IF IT SHOULD BE ENABLED 

;MOVE CONTENTS OF DEVICE DESCRIPTOR WORD TO $TMP1 

;BRANCH OVER RETURN CORRECTION 

; VANILLA FUDGE RETURN OVER ERROR CALL 

;RETURN WITHOUT CORRECTING STACK SO ERROR WILL CALL 



TSTB 


$ENV 


BEQ 


1$ 


TSTB 


$ENVM 


BPL 


1$ 


BIT 


FLOATR, (R5) 


BNE 


1$ 


MOV 


<R5),$TMP1 


BR 


2S 


ADD 


*2,(SP) 


RTS 


PC 



CKKUAEO 11/2A/4A UQI MAP 
CACHE TEST IN SUBROUTINE FORM 
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SEQUENCE 57 



2A8A 
2A85 
2A86 
2A87 
2A88 
2A89 
2490 
2A91 
249? 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
25C' 
250:, 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
25?4 
2525 
2526 
2527 
2528 
2'29 
2530 
2531 
^532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 



005324 
005332 
005340 
005346 
005350 
005354 
005360 
005362 
005366 
005372 
005376 
005404 
005412 



0C5420 
005426 

005432 

C05440 

005444 
005452 
005456 
005460 
005462 
005464 
005466 
005470 
005472 
005474 



005500 
005502 
005504 
005506 
005514 



005516 
005520 
005522 
005524 
005526 
005532 
005540 
005544 
005550 
005554 
005560 



042737 
052737 
032737 
001374 
013702 
005037 
005003 
012704 
013700 
013701 
012737 
012737 
112737 



01^737 
005737 

052737 

005737 

042737 
005037 
U2737 
000000 
177746 
122727 
000002 
000000 
001405 
005737 



000240 
005203 
000410 
052737 
011304 



000240 
005203 
000401 
022626 
005037 
012737 
105037 
010237 
010037 
ni0137 
05-^737 



000001 
000400 
010000 

000000 
000000 

Mini 
0001 K 
000116 
005524 
000340 
000002 



000015 
040000 

000100 

000000 

000100 
177744 



177572 
177746 
177746 



■SBTTL CACHE TEST IN SUBROUTINE FORM 
.ENABL LSB 



000114 
000116 
177750 



177746 
177746 

177746 



CASHSR: BIC #BITOO,MMRO 

BIS *BIT08, CACHE 

1$: BIT #SIT12, CACHE 

BNE IS 

MOV 0,R2 

CLR 

CLR R3 

MOV *-1,R4 

MOV CTRAPV,RO 

MOV CTRAPS.RI 

MOV #3$-CTRAPV 

MOV #340,CTRAPS 

M0V8 #2,MAINT 



CASH! : 



CASH2: 



000000 



000200 17r?46 2$: 



MOV 
TST 

BIS 

TST 

BIC 

CLR 

BIC6 

.WORD 

• WORD 

CMP8 

.WORD 

.WORD 

BEQ 

TST 



NOP 

INC 

BR 

BIS 

MOV 



tf15, CACHE 
40000 

^BIT06, CACHE 



#61 T06, CACHE 

CMPE 

(PC)+,S(PC)+ 



CACHE 

(PC)+,(PC)+ 

2 



2$ 





R3 

4$ 

J|'BIT07- CACHE 

(R3),R4 



TURN OFF RELOCATION 

FLUSH CACHE TO INVALIDATE ALL CACHE LOCATIONS 

WAIT TILL DONE 

SAVE ADDR. CONTENTS 

0*S TO MAIN MEMORY LOCATION 0. 

CLEAR ERROR FLAG 

ALL VS TO R4 

SAVE VECTORS 

SETUP FOR CACHE TRAP 



HODO ALLOWS CACHE UPDATES AND CLOCKING OF 
PARITY INFO TO INTERRUPT LOGIC ONLY DURING 
THE DESTINATION ACCESS OF AN INSTRUCTION. 
NO UC8 SO AS TO WRITE CACHE STORES 
UPDATE CACHE LOCATION 0000 WITH CORRECT 
PARITY STORAGE 

ALLOW WRITE WRONG PARITY DATA TO LO % HI BYTE 
PARITY STORE 

READ UPDATE TO CACHE LOCATION 0000; 
WRITE WRONG PARITY TO HI/LO BYTE PARITY STORES 
DISABLE WWPD 

CLEAR CMPE AND PARITY DETECT LOGIC 
ALLOW INT I ENABLE LOW CACHE (1ST ;DPM002 
LOCATION LOADED BY THE TEST ;DPM002 

ADDRESS OF CACHE LOCATION ;DPM002 

WHICH TEST ;DPM002 

TEST 2 IS TESTED FOR ;DPM002 

THIS LOCATION LOADED BY THE TEST ;DPM002 
60 TO 2ND TEST SECTION IF 2ND TEST EXECUTING 
READ HIT LO % HI BYTE PARITY CHECK GENERATORS 
WILL DETECT WRONG PARITY AND THE PARITY 
ERROR WILL BE CLOCKED TO INTERRUPT LOGIC 
NEEDED FOR 11/44 

INDICATE THAT TRAP DID NOT OCCUR 
BRANCH OVER STACK CORRECTION AND 2ND TEST SECTION 
ALLOW FOR ABORT 
.rrr.. _, , ^ -READ HIT LO % HI BYTE PARITY CHECK GENERATORS WILL 

DETECT WRONG PARITY USING HODO AND SOURCE MODE FOR READING LOCATION WILL 
INHIBIT PARITY ERROR FROM BEING CLOCKED TO INTERRUPT LOGIC, HOWEVER. THE PARITY 
ERROR SIGNAL WILL CAUSE THE ABORT SIGNAL TO L^E ASSERTED. THE ABORT SiGNAL WILL 
BECAUSE CMPE<15> TO BE SET. THIS INSTRUCTION SHOULD BE ABORTED 



NOP 

INC R3 

BR 4$ 

,„,,, 3$: CMP (R6) + ,(R6) + 

177744 4$: CLR CMPE 

9Q11 J5 ^ 77746 MOV #1015, CACHE 

VJJ^^^ CLRB MAINT 

000000 MOV R2,0 

000114 MOV RO.CTRAPV 

292U^ .,-,,.. "ov rkctraps 

000400 177746 BIS #BIT08, CACHE 



NEEDED IN AN 11/44 TO ALLOW 1 INSTRUCTION BEFORE ABORT 

INDICATE NO TRAP OCCURED 

BRANCH OVER STACK CORRECTION 

READJUST STACK DUE TO INTERRUPT 

CLEAR CMPE 

DISABLE CACHE 

DISABLE MAINT. MODE 

RESTORE LOCATION 

RESTORE CACHE INTERRUPT VECTORS 

BEFORE LEAVING TEST FLUSH CACHE TO ELIMINATE EFFECTS OF WWP 



CKKUAEO 11/2A/44 UBI MAP 
CACHE TEST IN SUBROUTINE FORM 
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SEQUENCE 58 



2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
t554 
2555 



005566 
005574 
005576 



005600 
005602 
005606 
005610 
005612 
005616 
005620 
005622 
005626 



032737 010000 

001374 

000207 



011504 
043704 
010410 
011504 
043704 
020410 
001402 
062716 
000207 



177746 5$: 



BIT #8IT12, CACHE ;WAIT TILL DONE 

BNE 5$ 

RTS PC ;EXIT 

.DSABL LSB 

.SBTTL SUBROUTINE TO PREPARE AND CHECK DATA PATTERN 



005776 



006000 



000002 



CHKPAT; MOV 
BIC 
MOV 
MOV 
BIC 
CMP 
BEQ 
ADD 

1$: RTS 



(R5).R4 

MASK1-R4 

R4,(r6) 

(R5)-R4 

MASK2,R4 

R4,(R0) 

IS 

^2 ASP) 

PC 



;MOVE NEXT COUNT PATTERN TO R2 

;USE MASK1 PRE-LOADED FOR PROPER LOADING 

;LOAD MAP REGISTER WITH COUNT PATTERN 

;RELOAD PATTERN 

;USE THE 2ND MASK TO CONSTRUCT EXPECTED VALUE 

; COMPARE EXPECTED WITH RECEIVED 

;BRANCH IF DATA IS OK 

; FUDGE RETURN TO SHOW ERROR 

;EXIT 



CKKUAEO 

READ AN 

2556 

2^57 

2558 

2559 

2560 

2561 

2562 

2563 

2364 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

257A 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 



11/24/AA UBI MAP 
OCTAL NIWER FROW THE 



MACRO Mil 13 
TTY 



11-JAN-82 11:27 PAGE 



H 

51 



SEQUENCE 5^ 



005630 
005632 
005640 
005642 
005644 
005646 
005650 
005652 
005654 
005656 
005660 
005662 
005664 
005666 
005670 
005672 
005674 
005676 
005700 
005702 
005704 
005710 
005712 
005714 
005716 
005722 
005726 
005730 
005732 
005734 
005736 



011646 
016666 
010046 
010146 
010246 
104407 
012600 
005001 
005002 
112046 
001415 
000241 
006101 
006102 
000241 
006101 
006102 
000241 
006101 
00610: 
042716 
052oOl 
000761 
005726 
010166 
CI 0237 
012602 
012601 
012600 
000002 
000000 



.SBTTL READ AN OCTAL NUMBER FROM THE TTY 

*THIS ROUTINE WILL READ AN OCTAL (ASCJJ) NUMBER FROM THE TTY, CHAHGE IT TO 

♦BINARY AND PUT THE NUM8ER ON THE STACK. 

*CALL: 



000004 000002 



SRDOCT: 



1$: 



2$: 



177770 



000012 
005736 



3$: 



SHIOCT: 



RDOCT 
MOV 



MOV 

MOV 

MOV 

MOV 

MOV 

RDLIN 

MOV 

CLR 

CLP 

MOVS 

BEO 

CLC 

ROL 

ROL 

CLC 

ROL 

ROL 

CLC 

ROL 

ROL 

6IC 

BIS 

BR 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

RTI 

.WORD 



<SP)+, LOCATION 



(SP), -(SP) 
4(Sp5,2(SP) 
RO, -(SP) 
R1,-(SP) 
R2,-(SP) 

(SP)+, RO 

R1 

R2 

(RO)+,-(SP) 

3$ 

R1 
R2 

R1 
R2 

R1 

R2 

#177770, (SP) 

(SP)+,R1 

2$ 

R1J2(SP) 
R2-$HI0CT 
(SP)+, R2 
(SP)+, R1 
(SP)+, RO 





READ AN OCTAL NUMBER 

POP THE INPUTED NUMBER OFF STACK 

HIGH ORDER BITS ARE IN SHIOCT 

MAKE ROOM FOR THE 

OCTAL NUMBER 

SAVE RO 

SAVE R1 

SAVE R2 

READ THE OCTAL NUMBER 

GET ADDRESS OF 1ST CHARACTER 

CLEAR f;» 

CLEAR R2 

MOVE CHARACTER TO STACK 

IF ZERO, EXIT 

CLEAR THE CARRY BIT 

SHIFT MSB TO THE CARRY BIT 

SHIFT IT TO UPPER RECEIVER 

CLEAR THE CARRY BIT 

SHIFT MSB TO THE CARRY BIT 

SHIFT IT TO UPPER RECEIVER 

CLEAR THE CARRY BIT 

SHIFT MSB TO THE CARRY BIT 

SHIFT IT TO UPPER RECEIVER 

STRIP ALL BUT BINARY EQUIVALENT 

SET THE BINARY EQUIVALENT TO LOWER RECEIVER 

BRANCH BACK 

CLEAN TERMINATOR FROM STACK 

SAVE THE RESULT 

RESTORE R2 

RESTORE R1 

RESTORE RO 

RETURN 

HIGH ORDER BITS GO HERE 
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I 
52 



SEQUENCE 60 



2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
261? 
2613 
26U 
2615 
2616 
2617 
2618 
2619 



0057<jO 
0057A^» 
005760 
005762 
00576^ 
005770 
005774 
005776 
OC6000 
006002 

006102 
006104 
006106 
006110 
006112 
006114 
006116 

006120 
006125 
006161 
006174 



005744 
001266 
000000 
000000 
000000 

oooooc 

000000 
000000 
000000 

000002 

Mini 

000000 

125252 

052525 

031463 

007417 

000377 

000010 

000 

200 

123 

040 



006120 
001270 



000077 
000077 



001272 



DTMS: 

DTMSG: 

CMARCT 

EXTOUT 

EADRES 

EADRS2 

FLOATR 

MASKl: 

MASK2: 

SPECST: 

PATRNS: 



000 
125 
127 
113 



000 
116 
122 
200 



DFMSG: 

uemvA 

NEUSWR 
U8MEN0 



.SBTTL 

.WORD 

*WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.BLKW 

.RADIX 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.RADIX 

.BVTE 

.ASCI2 

.ASCIZ 

.ASCIZ 



DATA TABLES AND ASCII STRINGS USED IN THIS DIAGNOSTIC 
DTMSG, DFMSG ;POINTER TO DATA VARIABLE ADDRESSES 
MMRL0W,MMRHI,U8RL0W,U6RHI,$TESTN,0 ;DATA VARIABLES TO BE PRINTED 







0,77 

0,77 







40 

2 

1111111111111111 

0000000000000000 

1010101010101010 

0101010101010101 

0011001100110011 

0000111100001111 

0000000011111111 

8 

0,0,0,0,0 



THIS LOCATION HOLDS CHARACTERS INPUTED DURING THE TYPE ROUTINE 
THIS LOCATION STORES THE OUTPUT OF THE EXTRACTION ROUTINE 
LOCATIONS FOR STORING 22 BITS OF THE UBMAP REGISTER ADDRESS 
LOCATIONS FOR STORING ANOTHER UBMAP REGISTER ADDRESS 
LOCATION TO HOLD BIT TO FLOAT TO TEST DDW'S STATUS 
PRE-LOADED BY THE TEST WITH THE 1ST BIT-MASK 
PRE-LOADED BY THE TEST WITH THE 2ND BIT-MASK 

;SET RADIX TO BINARY REPRESENTATION 

;ALL BITS SET 

;ALL BITS CLEAR 

;ODD BITS SET, EVEN BITS CLEAR 

;EVEN BITS SET, ODD BITS CLEAR 

.-ALTERNATING PAIRS OF BITS SET 

.-ALTERNATING GROUPS OF 4 BITS SET 

.'LOWER BYTE SET, UPPER BYTE CLEAR 

;SET RADIX BACK TO OCTAL 

;ALL NUMBERS ARE TO BE PRINTED IN OCTAL 

7 



<CRLF>?UNIBUS MEMORY AVAILABLE = 
?SWR INPUT ? 
? K?<CRLF> 
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SEQUENCE 61 



2620 006200 


200 


104 


111 


CPUMS6: 


2621 006261 


101 


103 


103 


TOMSG: 


2622 006344 


103 


101 


125 




2623 006421 


124 


110 


105 


NOMORE: 


2624 006512 


105 


122 


122 




2625 006607 


124 


110 


111 


BADCPU: 


2626 006672 


104 


111 


101 




2627 006754 


111 


123 


OAO 


MRQUES: 


2628 007043 


040 


200 


000 


GMRMDl : 


2629 0070^6 


104 


111 


101 


GMRMODr 


2630 007140 

2631 

2632 


000 






CPUTYP: 








;RESERV 


2633 








;THIS A 


2634 007142 


000000 


000000 


000000 


PATCH: 


2635 007242 


000000 


000000 


ocoooo 





.ASCI2 <CRLF>?DIAGNOSTIC HAS DETERMINED THAT CPU IS AN 11/ 4?<CRLF> 

.ASCII 7ACCESSING MEMORY THROUGH THE FOLLOWING R£GISTER(S)?<CRLF> 

.ASCIZ 7CAUSED TIME OUTS (THEY MIGHT BE UNEXPECTED) ?<CRLF> 

.ASCII 7THERE ARE STILL MORE ERRORS BUT WILL NOT BE TYPED. EACH?<CRLF> 

.ASCIZ 7ERR0R WILL BE COUNTED AND NUMBER PRINTED AT THE END-0F'-PASS7<CRLF> 

.ASCII 7THIS DIAGNOSTIC IS DESIGNED FOR AN 11/24 OR 11/44.?<CRLF> 

.ASCIZ 7DIA6N0STIC DOES NOT INTERPRET CPU AS EITHER ONE.?<CRLF> 

.ASCIZ 7IS THERE A MAP REGISTER MODULE IN THIS CPU (Y OR <CR»? 

.ASCIZ 7 ?<CRLF> ; PLACE FOR USER INPUT CHARACTER 

.ASCIZ 7DIA6N0STIC CHECKS THIS MODULE - INSERT BEFORE RE-RUNNING?<CRLF> 

.BYTE ; LOCATION TO STORE THE CPU TYPE NUMBER 

.EVEN 
;RESERVE REMAINING AREA FOR PERMANENT PATCHES 

;THIS AREA MAY GO BEYOND 10000. USE ONLY THAT AREA UP ^0 7776. 

.WORD 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.0,0,0,0,0,0,0,0,0,0.0.0.0,0,0 

.WORD 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 



CKKUAEO 11/2A/A4 Uai MAP 
PRE-TEST1N6 SETUP 

2636 

2637 

2638 

2639 

26A0 

26A1 010000 

26A2 010000 012737 000340 

2643 010006 012700 001100 

2644 010012 012701 000021 

2645 010016 005020 

2646 010020 077102 

2647 010022 005037 020150 

2648 010026 012706 001100 

2649 010032 012700 010054 

2650 010036 012701 000005 

2651 010042 012030 

2652 010044 012730 000340 

2653 010050 077104 

2654 010052 000417 

2655 010054 020266 000020 

2656 010074 000036 023610 

2657 010112 013737 021644 

2658 010120 005037 001214 

2659 010124 112737 000001 

2660 010132 012737 000002 
266-! 010140 012737 010166 

2662 010146 012746 000340 

2663 010152 012746 010160 

2664 010156 000006 

2665 010160 012737 000006 

2666 010166 012706 001100 

2667 010172 012737 000012 

2668 010200 005037 022076 

2669 010204 012737 010700 

2670 010212 012737 OlOrOO 

2671 010220 005227 Mllll 

2672 010224 001017 

2673 010226 104401 010234 

2674 010232 000414 

2675 010234 103 113 
2676 

2677 010264 005737 020150 

2678 010270 001140 

2679 010272 013746 000004 

2680 010276 0M717 010470 

2681 010304 013746 000006 

2682 010310 012737 000340 

2683 010316 000007 

2684 010320 110037 007140 

2685 010324 105337 007140 

2686 010330 001021 

2687 010332 022737 }77777 

2688 010340 001004 

2689 010342 012737 000176 

2690 010350 000403 

2691 010352 012737 177570 

2692 010360 112737 000064 
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..SBTTL P^t-TESTIN6 SETUP 
;START OF TF:^ CODE 






SFQUENCE 62 



177776 STAkT 



11$: 



000022 
000024 
021636 

001113 
022070 
000010 



022070 

000010 

001104 
001106 



113 

000004 
000006 

177570 

001136 

001136 
006255 



12$: 



13$: 
14$; 



15$: 
16$: 



17$: 
18$: 



1000$: 
1010$: 



,=^10000 

MOV 

MOV 

MOV 

CLR 

S08 

CLR 

MOV 

MOV 

MOV 

MOV 

MOV 

soe 

BR 

.WORD 

.WORD 

MOV 

CLR 

MOVB 

MOV 

MOV 

MOV 

MOV 

RTT 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

INC 

BNE 

TYPE 

BR 

.ASCJZ 

■ EVEN 

TST 

BNE 

MOV 

MUV 

MOV 

MOV 

MFPT 

MOVB 

DECS 

BNE 

CMP 

BNE 

MOV 

BR 

MOV 

MOVB 



;START TEST CODE AT ADDRESS 10000 (2K) 
«40,PS ;LOCK OUT ALL INTERRUPTS 
#$CMTA6,R0 ;FIR.ST LOCATION TO BE CLEARED 
^<$TKS-$CMTA6>/2,R1;M0VE LOOP COUNTER TO Rl 



(R0) + 

RIJU 

$PASS 

*STACK-SP 

/f13$,fi0 

^5.R1 

(R0)+.9(R0)+ 

*3'i0>a(R0) + 

R1J2$ 



; CLEAR MEMORV LOCATION 

; SUBTRACT 1 AND BRANCH IF NOT DONE YET 

;JNITJALIZE PASS COUNT 

;iNITILAIZE STACK 

;MOVE ADDRESS OF VECTORS TO RO 

;D0 5 LOADS 

;MOVC VECTOR TO LOCATION 

;WOVE PRIORITY 7 TO NEXT LOCATION 

;8RANCH BACK U NOT DONE YET 

; BRANCH OVER DATA WORDS 
$SCOPE,IOTVEC,IOTVEC+2.$ERROR.EMTVEC,EMTVEC+2,$TRAP,TRAPVE 
TRAPVE+2.$PURDN,PWRVEC,PWRVEC+2,$RTRN,TBITVE,T6ITVE+2 



$ENDCT,$EOPCT 

$ESCAPE 

#1,$ERMAX 

*RTJ,$RTRN 

^16$,RESVEC 

*340,-(SP) 

^15$, -(SP) 

/'RTT,$RTRN 
*STACK,SP 
/'RESVEC+2,RESVEC 
$T6IT 

#TST1+2.$LPADR 

^TST1+2.$LPERR 

#"1 

18$ 

,17$ 

18$ 

'CKKUAE 11/24/44'UBI MAP 



SETUP END-OF -PROGRAM COUNTER 

CLEAR THE ESCAPE ON ERROR ADDRESS 

ALLOW ONE ERROR PER TEST 

SET $RTRN TO AN RTI 

MOVE 16$ (FAILURE) TO RESVEC 

MOVE PRIORITY 7 TO STACK 

MOVE 15$ (SUCCESS) TO THE STACK 

TRY TO DO AN RTT 

RTT IS LEGAL—SET $RTRN TO AN RTT 

RESET STACK IF NECESSARY 

RESET TRAP CATCHER 

CLEAR "T" BIT SWITCH 

SETUP $LPADR 

SETUP $LPERR 

FIRST TIME? 

BRANCH IF NOT 

TYPE THE TEST TITLE 

BRANCH OVER ASCIZ 



$PASS 

8$ 

4--(SP) 

6,-(SP) 

RO,CPUTYP 

CPUTYP 

1$ 

*-l J77570 

1006$ 

/rV6,SWR 

1 !0$ 

#1^7570. SWR 

^'4,CPUMS6+55 



IS THIS THE FIRST PASS? 

BRANCH IF NOT 

SAVE TIMEOUT VECTOR 

TIMEOUTS TO 104$ 

SAVE PS VECTOR 

PRIORITY 7 

DETERMINE PR0rc5S0R TYPE 

MOVE THE CPU NUMBER TO CPUTYP 

MAKE THE 11/44 VALUE ZERO 

BRANCH TO NEXT TEST IF NOT AN 11/44 

SEE IF SSWR IS TO BE USED 

BRANCH TO SETUP FOR HARDWARE SWR 

SET UP FOR SSWR 

BRANCH 

SET UP FOR HARDWARE SWITCH REGISTER 

MOVE ASCII ^ TO LOCATION IN MESSAGE TO 



DPM002 
DPM002 
DPM002 
DPM002 
0PM002 
PRINT 



CKKUAEO 11/2A/AA UBI MAP 
PRE-TEST1N6 SETUP 
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54-1 



SEQUENCE 63 



2693 
269A 
2695 
2696 
t;697 
2698 
2699 
2700 
2701 
2702 
2703 
270A 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
27U 
2715 
2716 
2717 
2718 
2719 
2720 
27^1 
2722 
2723 
272A 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 



010366 
010372 
010374 
010402 
010404 
010412 
010420 
010424 
010430 
010432 
010440 
010444 
010446 
010452 
010454 
010460 
010462 
010466 
010470 
010474 
010500 
010504 

010506 
010510 
010514 
010520 
010524 
010532 
010536 
010542 
010544 
010550 
010556 
010564 
010566 
010572 
010576 
010600 
010606 
010614 
010622 
010630 
010636 
010^42 
010646 
010652 
010656 
010662 
010(^66 
010o72 



104401 
000446 
122^37 
001034 
012737 
112737 
104401 
105737 
1C0427 
012737 
00573/ 
001021 
104401 
104430 
01265/ 
001013 
005237 
000410 
062706 
005237 
104401 
000000 

000774 
012637 
012637 
013746 
012737 
012704 
012705 
0105*t4 
062705 
062737 
022737 
001366 
012637 
105737 
100003 
012737 
012737 
012737 
012737 
012737 
005037 
005037 
005037 
012700 
010037 
010037 
010037 
010037 



006200 

000002 

000176 
000062 
006200 
020163 

000176 
000176 

006161 

000176 

000176 

000004 
020142 
006607 



000006 
000004 
172346 
000400 
060000 
040222 

010000 
000100 
007600 

172346 
020163 

020164 
003372 
000340 
003222 
000340 
001326 
177572 
172516 

Mini 

00322^ 
00303? 
003374 
177766 



007140 IS: 

001136 
006255 



001136 



2$ 
3$ 
4$ 



6$: 



172346 



172346 
172346 



7$; 



8$: 

001136 

000250 LOOP: 
000252 
000004 
000006 



TYPE ,CPUMS6 

BR 6$ 

CMP8 #2,CPUTYP 

BNE 3$ 

MOV #$SSWR,SWR 

MOVB #'2,CPUMS6+55 

TYPE ,CPU«SG 

TST8 SENVM 

B«] 6$ 

MOV nssuR,sw 

TST SSSWR 

BNE 6$ 

TYPE ,NEWSWR 

RDOCT 

MOV (SP)+, SSSWR 

BNE 6S 

INC SSSWR 

BR i% 

ADD H,SP 

JNC SMSGTY 

TYPE ,aADCPU 

HALT 

BR 4S 

MOV (SP)+,6 

MOV (SP)+,4 

nOV KJPAR3,-(SP) 

MOV #400-KlPAR3 

MOV #60000, R4 

MOV #40222-R5 

MOV R5-(R4) 

ADD #10000, R5 

ADD #100-KIPAR3 

CMP #7600,KIPAR3 

BNE 7$ 

MOV (SP)+,KIPAR3 

TST8 SENVM 

BPL LOOP 

MOV #SSWREG,SUR 

MOV #MMTRAP,MMVEC 

MOV #340,MMVEC+2 

MOV #CPUER,ERRVEC 

MOV #340,ERRVEC+2 

CLR CPUEXP 

CLR MMRO 

CLR HMR3 

MOV #-1,R0 

MOV R0,CPFLA6 

MOV RO^TOFLAG 

MOV RO^MMFLAG 

MOV RO.CPUERR 



TYPE THE CPU TYPE HEADER 

CONTINUE 

SEE If THIS IS AN 11/24 

BRANCH TO FATAL ERROR MESSAGE PRINTING If NOT 

SETUP SOFTWARE SWITCH REGISTER ;DPM002 

MOVE ASCII 2 TO LOCATION IN MESSAGE TO PRINT 

TYPE THE CPU TYPE HEADER 

IS APT SIZING 

BRANCH IF NO 

SETUP SOFTWARE SWITCH REGISTER 

SEE IF SWR IS NON-ZERO 

BRANCH IF SO 

TYPE: 'SWR INPUT ' 

60 READ USER OCTAL INPUT 

MOVE NEW CONTENTS TO THE SOFTWARE SWR LOCATION 

BRANCH IF NON-ZERO 

MAKE SWR NON-ZERO FOR POSSIBLE NEXT RUN 

CONTINUE 

CLEAN STACK AFTER TIMEOUT 

TELL APT THIS IS A FATAL ERROR 

TYPE THE BAD CPU MESSAGE 

FATAL ERROR - THIS DIAGNOSTIC IS WRITTEN 

FOR 11/24 AND 11/44 PROCESSORS ONLY 

DON'T ALLOW CONTINUE 

RESTORE TIMEOUT PS 

RESTORE TIMEOUT VECTOR 

SAVE PAR3 

START WITH ADDRESS 40000 

ADDRESS PAR3, OFFSET=0 

DATA TO LOAD TQ 4C000 

MOVE DATA TO LOCATION 

MOVE DATA UP 10000 

MOVE ADDRESS UP 10000 

SEE IF ALL DONE YET 

BRANCH BACK IF NOT 

RESTORE PAR3 

IS APT SIZING 

BRANCH IF NOT 

USE APT SWI TCH REGISTER 

LOAD MEMORY MANAGEMENT TRAP SERVICE ROUTINE ADDRESS 

SET PRIORITY SEVEN 

LOAD CPU TRAP SERVICE ROUTINE ADDR 

SET PRIORITY SEVEN 

NOT EXPECTING ANY CPU ERRORS 

START IN 16 BIT MAPPING 

DISABLE MAP AND 22-BlT MAPPING 

NEGATIVE ONE USED TO INITIALIZE FLAGS 

INITIALIZE FLAGS 

INITIALIZE FLAGS 

INITIALIZE FLAGS 

CLEAR CPU ERROR REGISTER 
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SEQUENCE 64 



2753 



2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2711 
27n 
2779 
2780 
2781 
2U2 
2185 
218A 
2785 
2786 
2187 
2788 
2789 
2790 
2791 
2792 
2;^93 



010676 
010676 
010700 
010704 
010712 
010720 
U10724 
010726 
010732 
010736 
010742 
010744 
010750 
010752 
010756 
010760 
010762 
010766 
010770 
010774 
011000 
011006 
011010 

011014 
011016 
011020 
011024 
011030 
011034 
011042 
011044 
011052 
011054 
011060 
011062 
011064 
011066 
011074 
011102 
011106 
011110 
011114 
011120 



000004 
004737 
011122 
012737 
105737 
001435 
005037 
013702 
005737 
001426 
105737 
100004 
005237 
000000 
000764 
104401 
104406 
112637 
104401 
^227Z7 
001 404 
104401 

000000 
000745 
012700 
012703 
005037 
012737 
011002 
032777 
001403 
005737 
001370 
005720 
077312 
012737 
012737 
005737 
001405 
005337 
005337 
104004 



005166 
011042 
003030 
007140 

001320 
170200 
001320 

020162 

020142 

006754 

007043 
007043 
000131 

007046 



170200 
000100 
001320 
011042 

001000 

001320 



003222 
011020 
001320 

001110 
001320 



SBTTL TEST # 1 - MAP REGISTER RESPONSE TEST 

*TEST 1 MAP REGISTER RESPONSE TEST 
* 

* THIS TEST IS USED TO ENSURE THAT ALL THE UNI8US MAP REGISTERS 

* CAN BE REFERENCED UNDER PROGRAM CONTROL, WITHOUT TIMING OUT. 

* TME ADDRESSES OF ANY MAP REGISTERS THAT TIME OUT WILL BE REPORTED 

* AND, AT THE END OF THE TEST, A SUMMARY OF THOSE REGISTERS WILL 

* BE GIVEN. 
* 

; ******************r***Hr*****Tif**t*t*ntf ********************** Ai^*** A** 

TST1: 



000001 
000004 



1$: 



2$: 



007043 



001106 
170064 



3S: 
20$: 

4$: 



000004 
001106 



SCOPE 

JSR 

-WORD 

MOV 

TST8 

BEQ 

CLR 

MOV 

TST 

BEQ 

TSTB 

BPL 

INC 

HALT 

BR 

TYPE 

RDCHR 

Move 

(YPE 
CMPB 
BEQ 
TYPE 

HALT 

BR 

MOV 

MOV 

CLR 

MOV 

MOV 

BIT 

BEQ 

TST 

BNE 

TST 

SOS 

MOV 

MOV 

TST 

BEQ 

DEC 

DEC 

ERROR 



PCPRETST 

TST2,20$J 

#TIMEOUT,ERRVEC 

CPUTYP 

3$ 

ERRCNT 

MAPL0,R2 

ERRCNT 

3$ 

SENV 

2$ 

IMSGTY 

1$ 
,MRQUES 

(SP)+, 6MRMD1 

,6MRMD1 

#'y,6MRMD1 

3$ 

,GMRMOD 



1$ 

#«APLO,RO 

#100, R3 

ERRCNT 

*20$,$LPERR 

(R0)^R2 

#8IT09,aSWR 

4$ 

ERRCNT 

20$ 

(R0) + 

R3,20$ 

#CPU£R.ERRVEC 

#3$, $LPERR 

ERRCNT 

TST2 

$ERT]L 

ERRCNT 

+4 



GO SET UP PRETEST DATA 

DATA USED BY PRETST 

LOAD ERRVEC WITH ROUTINE ADDRESS 

TEST TO SEE WHICH CPU IS PUNNING THIS DIAGNOSTIC 

BRANCH AROUND MAP REGISTER EXISTENCE CHECK IF 11/44 

CLEAR THE ERROR COUNTER 

READ FIRST MAP REGISTER TO R2 

SEE IF THERE WERE ANY ERRORS 

BR-ANCH TO CHECK THEM ALL IF NONE, THEY ARE IN THIS 11/24 

ARE WE RUNNING UNDER APT 

BRANCH IF NOT 

TELL APT THIS IS A FATAL ERROR 

HALT - FATAL ERROR 

TRY AGAIN - RESTART REQUESTED 

ASK USER IF THERE ARE MAP REGISTERS IN THIS 11/24 

60 READ USER INPUT 

MOVE THE CHARACTER TO THE PRINTING LOCATION 

TYPE THE CHARACTER 

SEE IF THIS WAS A 'Y' 

BRANCH AROUND FATAL MESSAGE IF EQUAL TO A 'Y* 

TYPE: 'DIAGNOSTIC CHECKS THIS MODULE - INSERT 

•BEFORE RE-RUNNING* 
FATAL ERROR - WAIT FOR USER ACTION 
TRY AGAIN - RESTART REQUESTED 
PUT FIRST MAP REGISTER ADDR IN RO 
TEST ALL MAP REGISTERS 
CLEAR THE ERROR COUNTER 
MAKE SURE $LPERR IS POINTING AT 20$ 
READ MAP REGISTERS TO R2 
SEE IF LOOP ON ERROR IS SET 
BRANCH AROUND SETUP IF NOT 
SEE JF AN ERROR OCCURED 
BRVIJH BACK IF SO 

INCHfPMENT RO TO NEXT REGISTER LOCATION 
DO ALL OF THEM 

RcSTORE CPU TRAP SERVICE ROUTINE ADDRESS TO ERRVEC 
MOVE 3$ TO LOOP ON ERROR FOR ERROR +4 BELOW 
SEE IF THERE WERE ANY ERRORS 
;60 TO NEXT TEST IF NO ERRORS 
DON'T COUNT SUMMARY AS AN ADDITIONAI ERROR 
DECREMENT ERRCNT FOR SAME REASON 
SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ 
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SEQUENCE 65 



2808 



C11122 
011122 
011124 
011130 

2809 011136 

2810 011142 

2811 011150 

2812 011154 
2313 011160 

2814 011166 

2815 011172 

2816 011176 

2817 011202 

2818 011206 

2819 011210 

2820 011212 

2821 011216 

2822 011220 

2823 011224 

2824 011226 

2825 011232 

2826 011240 
282* 011242 
2828 011246 
2829 

2830 011252 

2831 011254 

2832 011260 

2833 011262 

2834 011264 

2835 011272 

2836 011274 

2837 011302 
2638 011304 
2839 011306 
284C 011312 

2841 011314 

2842 on 320 

2843 011322 

2844 011330 

2845 011334 



000004 
004737 
011444 
005037 
012737 
012700 
005037 
012737 
012701 
012702 
012705 
004737 
000435 
011003 
011537 
011546 
004737 
0103h6 
004737 
043737 
010046 
013746 
004737 

000403 
004737 
000401 
104203 
052777 
001370 
012737 
005725 
0772^2 
062700 
077151 
005737 
001416 
012737 
005337 
0G'i557 



005166 
011254 
001320 
011254 
170200 
005776 
000001 
000040 
000007 
006102 
005600 



001174 

003650 

003624 
005776 

172356 
003674 

005600 

001000 

011172 

000004 

001320 

011142 
001110 
001320 



SBTTL TEST # 2 - BIT PATTERN AND CLEAR TEST OF 40 MAP REGISTERS 

*TEST 2 BIT PATTERN AND CLEAR TEST OF 40 MAP REGISTERS 

* 



THIS TEST WILL RUN 7 BIT PATTERNS THROUGH BOTH WORDS Of 40 UNI6US 
f-lAP REGISTER LOCATIONS MAPLOO - MAPL37. USING TWO MAJOR PASSES, 
IT WILL TEST THE LOWER 16 BITS ON THE FIRST PASS, AND THE VPt'ER 
6 BITS ON THE SECOND. THIS TEST WILL MAKE SURE THE REGISTER CAN 
CLEAR, AND THEN RUN 6 BIT PATTERNS THROUGH EACH UNIBUS MAP REGISTER 
If THE DATA PATTERN RECEIVED DOES NOT MATCH THE EXPECTED PATTERN, 
TH:N the map register address, data RECEIVED, PATTERN LOADED, AND 
PATTERN EXPECTED ARE REPORTED. AT THE END OF EACH OF THE TWO MA.'OR 
PASSES, A SUMMARY OF ALL ERRORS IS GIVEN SO THAT YOU CAN DETERMINE 
IF THE ERROR IS BIT SENSITIVE OR REGISTER SENSITIVE. 



TST2: 



000002 
001106 

006000 



1$: 



2$: 
3$: 

4$; 



001174 



167644 
001106 



?0$: 

5$: 
6$: 



7$: 



001106 



SCOPE 

JSR 

.WORD 

CLR 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

JSR 

BR 

MOV 

MOV 

MOV 

JSR 

MOV 

JSR 

BIC 

MOV 

MOV 

JSR 

BR 

JSR 

BR 

ERROR 

BIT 

BNE 

MCV 

TST 

soe 

ADD 
SOB 
TST 
8F0 
MOV 
DEC 
DEC 



PCPRETST 

TST3,20$,2 

ERRCNT 

*20$,$LPERR 

#MAPLOO,RO 

MASK1 

#1,MASK2 

*40,R1 

M7.R2 

*PATRNS,R5 

PCCHKPAT 

7$ 

(R0),R3 

(R5),$TMP0 

(R5),-(SP) 

PCPATEXT 

R3,-(SP) 

PCDATEXT 

MASK1,$TMP0 

RO,-(SP) 

KIPAR7.-(SP) 

PCADREXT 

5S 

PCCHKPAT 

6S 

+203 

/TBI T9,asWR 

20$ 

1*3$, $LPERR 

(R55> 

H2,4$ 

#4,R0 

R1,3$ 

:r^.nt 

9> 

#ir>.$LPERK 
$F/^nL 



60 SET UP PRETEST DATA 

DATA USED BY PRETST 

CLEAR THE ERROR COUNT LOCATION 

SETUP 20$ AS LOOP ON ERROR INDICATOR (If NOT ALREADY) 

MOVE STARTING ADDRESS OF LOWER 16 BITS REGISTER TO RO 

MOVE '0' TO MASK1 

MOVE T TO MASK2 

DO 40 REGISTERS LOOP COUNTER 

MOVE PATTERN LOOP COUNTER TO R2 

MOVE PATTERN START TO R5 

60 f'HECK PATTERN 

RElURN IS HERE IF DATA IS OK 

READ BAD MAP REGISTER DATA INTO R3 

MOVE PATTERN TO $TMPO 

MOVE PATTERN TO STACK FOR SUBROUTINE US'^ 

60 SET DATA INTO PATTOR AND PaTAND 

MOVE BAD DATA TO STACK FOR SUBROUTINE USE 

SUBROUTINE TO LOAD DATAOR AND DATAND 

FORM INPUT PATTERN FOR ERROR PRINTING 

PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE 

PUT FAR CONTENTS ON S'ACK FOR ADREXT SUBROUTINE 

60 SET DATA IN THE 4 \ ORDS OF ADDROR AND ADRAND 

AND FORM A PHYSICAL 22-61 T ADDRESS 

BRANCH OWER LOOP ON ERROR SECTION 

60 TO SUBROUTINE TO CHECK PATTERN 

RETURN IS HERE IF DATA IS OK 

THE BIT PATTERN TH5^0UCH THt" MAP REGISTERS FAILED 

SEE If LOOP ON ERROR IS SET 

LOOP BACK IF SO 

MOVE 3$ TO LOOP ON ERROK INDICATOR 

POINT R5 TO NEXT PATTERN 

DECREMENT LOOP COUNTER 

POINT TO NEXf HAP REGISTER UNDER TEST 

DECREMENT LOOP 'UUNTER AND 

SEE IF THERE WEr^t ANY ERRORS 

BRANCH IF NO ERRORS 

MOVE 1$ TO LOOP ON ERROR ^Ofi ERROR +6 OR +7 BELOW 

SUMPTION ERROR NOT COUNTcD AS ANOTHER ERROR 

SAME AS ABOVf 



I 
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SEQUENCE 66 



2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 



011340 
011344 
011346 
011350 
011352 
011354 
011356 
011362 
011364 
011372 
011376 
011404 
011412 
011416 
011422 
011430 
011436 
011442 



022700 


170402 






CMP 


001402 








BEO 


104006 








ERROR 


000405 








BR 


104007 






8$: 


ERROR 


000433 








BR 


022700 


170402 




9$: 


CMP 


001430 








BEQ 


012737 


011254 


001106 


10$: 


MOV 


012700 


170202 






MOV 


012737 


177700 


005776 




MOV 


012737 


177700 


006000 




MOV 


005037 


001254 






CLR 


005037 


001246 






CLR 


012737 


M7777 


001252 




MOV 


012737 


\77777 


001242 




MOV 


005037 


001320 






CLR 


000651 








BR 



#MAPH37+4,R0 
8S 

+6 

10$ 

+7 

TST3 

jy«APH37+4,R0 

TST3 

*20$,$LPERR 

^MAPHOO,RO 

#177700,MASK1 

^177700,MASK2 

PATTOR 

DATAOR 

#-1,PATAND 

*-1,DATAND 

ERRCNT 

2$ 



SEE IF THIS PASS WAS \^??l\< 6 BITS 

60 SERVICE \^??l^ 6 BITS ERROR IF SO 

SUMMARY OF BIT PATTERN FAILURES- LOWER 16 BITS 

60 SET UP DATA FOR TESTING \i?Plk 6 BITS 

SUMMARY OF BIT PAT lERN FAILURES, UPPER 6 BITS 

;G0 TO NEXT TEST - LOWER 16 BITS ALREADY TESTED 

SEE \f THIS PASS WAS FOR THE UPPER 6 BITS 

;60 TO NEXT TEST IF IT WAS 

RESET LOOP ON ERROR TO 20$ 

MOVE STARTING ADDRESS OF UPPER 6 BIT 

MOVE 1ST MASK TO MASKi 

MOVE 2ND MASK TO MASK2 

CLEAR PATTOR FOR NEXT PASS 

CLEAR DATAOR FOR NEXT PASS 

MOVE *1 TO PATAND FOR NEXT PASS 

MOVE -1 TO DATAND FOR NEXT PASS 

CLEAR ERROR COUNT FOR NEXT PASS 

60 REACCOMPLISH TEST FOR UPPER 6 BITS 



S REGISTER TO RO 
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h 



s^^\}mz^ 67 



2876 



01 UA/; 

01U4A 
01U46 
01U52 

2877 01U60 

2878 01U66 

2879 01 U72 

2880 01H76 

2881 011502 

2882 011510 
2885 0115U 
288A 011520 

2885 011524 

2886 011530 

2887 011534 

2888 011540 

2889 011544 

2890 011546 

2891 011550 

2892 011552 

2893 011554 

2894 011556 

2895 011562 

2896 011566 

2897 011572 
2898 

2899 011576 

2900 011602 
1901 011604 

011610 
0116U 
011616 
0l16i 

2906 0116; 

2907 Q116?6 

2908 0116. 

2909 011632 

2910 011640 

2911 01164? 
?912 011644 

2913 011646 

2914 011650 

2915 011652 




^00004 
004737 
011762 
042737 
012700 
012702 
012701 
012737 
004737 
012703 
005037 
012/04 
074237 
013710 
012701 
005741 
001435 
005011 
020100 
001432 
012137 
013746 
013746 
004737 



013746 
010146 
004737 

0405 
113710 
15711 
11402 
005011 

im 

001366 
077440 

005303 
001325 
005737 



005166 
011616 
000001 
170200 
177700 
170400 
000077 
002772 
000100 
172310 
000100 
001174 
001174 
170400 



SBTTL TEST HZ- DUAL ADDRESS LOADS I READS MAP REG'S 

•rTEST 3 DUAL ADDRESS LOADS I READS HAP REG'S 

THIS TEST ENSURES THAT ONLY ONE UNJBUS MAP REGISTER IS LOADED 
DURING A 'WOV #DATA,HAPREG" INSTRUCTION. ALL MAP REGISTERS 
ARE CLEARED AND ONE REGISTER AT A TIME, STARTING WITH MAPLOO, 
IS LOADED WITH A -1- THEN, ALL MAP REGISTERS ARE READ, 
STARTING WITH MAPH37, AND '^inUlE\> TO BE ZERO. ANY REGISTER 
THAT IS NOT ZERO AND WHOSE UNIBUS ADDRESS DOES NOT MATCH THAT 
OF THE REGISTER UNDER TEST IS REPORTED TO BE IN ERROR. AT THE 
END OF THE TEST A SUMMARY OF ALL DUALED REGISTERS IS GIVEN. 



TST3J 



000003 
^77572 



001 1 74 



1$: 



2%i 



3$: 



001202 
001202 
172350 
003674 

172356 

003624 
005770 

001174 



001000 167276 



20$: 



5$: 
6$: 

7$: 



001320 



SCOPE 

JSR PCPRETST 

.WORD TST4,20$,3 

BIC *1,MMR0 

MOV *MAPL00,R0 

MOV #177700, R2 

MOV rfS'mPH37+2,Rl 

MOV #77,$TMP0 

JSR PC.CLRMAP 

MOV #100, R3 

CLR MMR3 

MOV #100,R4 

XOR R2,$TMP0 

MOV $TMPO,(RO) 

MOV #MAPH37+2,R1 

TST -(R1) 

BEO 7% 

CLR (R1) 

CMP R1,R0 

BEQ 7$ 

MOV (R1)+,$TMP3 

MOV $TMP3,-(SP) 

MOV KIPAR4,-(SP) 

JSR PCADREXT 

MOV KIPAR7,-(SP) 

MOV R1, -(SP) 

.:SR PCDATEXT 

MOV R0,EADRS2 

BR 5$ 

MOV $TMP0,(R0) 

TST <R1) 

BEO 6$ 

CLR (R1) 

ERROR +202 

BIT #BIT09,aSWR 

6NE 20$ 

SOS R4.3S 

CLR (R0)+ 

DEC R3 

6NE 2$ 

TST ERRCNT 



GO SET UP PRETEST DATA 

DATA USED BY PRETST 

TURN OFF MEMORY MANAGEMENT 

LOAD ADDRESS OF MAPLOO IN RO 

SET UP XOR DATA 

PUT ADDRESS OF MAPH37+2 IN R1 

SET \}? TEST PATTERN IN STMPO 

CLEAR ALL MAP REGISTERS FOR TEST 

SET UP LOOP COUNTER FOR TESTING 40 REGISTERS, 2 WORDS EACH 

CLEAR MMR3 

SET UP LOOP COUNTER FOR CHECKING 40 REGISTERS, 2 WORDS EACH 

REVERSE BIT STATES OF $TMPO IN BITS 7 TO 15 

LOAD MAP REGISTER UNDER TEST 

PUT ADDRESS OF MAPH37+2 IN R1 

SEE IF MAP REGISTER IS ZERO 

GO SEE IF MORE REGISTERS TO TEST IF = 

CLEAR THE FAILED LOCATION 

SEE IF NON-ZERO REGISTER ADDRESS MATCHES ADDRESS LOADED 

60 SEE IF MORE REGISTERS TO TEST IF SO 

MOVE FAULTY DATA TO $TMP3 I PREPARE R1 FOR POSSIBLE LOOP 

MOVE FAULTY DATA TO STACK FOR SUBROUTINE USE 

MOVE PAR4 TO STACK FOR SUBROUTINE USE 

GO SET DATA IN THE 4 WORDS OF ADDRO/^ AND ADRAND 

AND FOR/1 A PHYSICAL 22-eiT ADDRESS 

PUT PAR ON STACK FOR DATEXT SUBROUTINE USE 

PUT VIRTUAL ADDRESS ON STACK FOR DATEXT SUBROUTINE USE 

SUBROUTINE TO LOAD DATAOR AND DATAND 

MOVE ADDRESS IN RO TO EADR$2 FOR ERROR CALL 

BRANCH OVER LOOP ON ERROR SECTION 

LOAD MAP REGISTER UNDER TEST 

SEE IF MAP REGISTER IS ZERO 

GO SEE IF LOOP ON ERROR IS STILL SET IF ZERO 

CLEAR THE FAILED LOCATION 

DUAL ADDRESSING ERROR IN THE UNIBUS MAP 

Sll IF LOOP ON ERROR IS SET 

BRANCH BACK IF SO 

BRANCH IF MORE REGISTERS TO CHECK 

CLEAR THE REGISTER JUST TZSTED AND POINT TO NEXT REGISTER 

DECREMENT LOOP COUNTER AND 

BRANCH IF MORE REGISTERS TO TEST 

SEE IF THERE WERE ANY ERRORS 



.-J 



CKKUAEO 11/24/A4 UBI MAP MACRO 
TEST # 3 - DUAL ADDRESS LOADS 8 READS 



M1113 11-JAN-82 
MAP REG'S 



11:27 PAGE 



D 6 

57-1 



2916 011656 

2917 011660 

2918 011664 

2919 011670 



001405 
005337 
005337 
104005 



001110 
001320 



8EQ RELr22 

DEC SERTTL 

DEC ERRCNT 

ERROR +5 



SEQUENCE 68 



;60 TO NEXT SECTION IF NO ERRORS 

; DON'T COUNT ERROR +5 AS ANOTHER ERROR 

;SAME AS ABOVE 

.-SUMMARY OF DUAL ADDRESSING ERRORS ON LOADING MAP REGISTERS 



CKKUAEO 11/2A/4A U8I MAP 

TEST # 3 - DUAL ADDRESS LOADS 8 



2920 
2921 
2922 
2923 
292A 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
293A 
2935 
2936 
2937 
2938 
2939 
29A0 
29^*1 



011672 104414 

011674 012700 077406 



011700 
011704 
011710 
011712 
011714 
011716 
011722 
011726 
011730 
011734 
011736 
011742 
011746 
011754 



012701 
012702 
010021 
077202 
005000 
012701 
012702 
010021 
062700 
077204 
012721 
012721 
012737 
012737 



MACRO Ml 113 11-JAN-82 
READS MAP REG*S 

RELC22: TBITR 

MOV 



172300 
000010 



172340 
000006 

000200 

170000 
177600 
000001 
000020 



1$: 



2$.' 



177572 
172516 



11;27 PAGE 



#77406, RO 



E 

58 



SEQUENCE 69 



;* 
;* 
;* 



MOV #KIPDR0,R1 
MOV #8.,R2 
MOV R0,(R1)+ 
SOS R2J$ 
CLR RO 
MOV #KJPAR0,R1 
MOV Hsn2 
MOV R0,(R1)+ 
ADD *200,R0 
S08 R2,2$ 
MOV ri 70000 '91; 
MOV #177600, :Kf) 
MOV #81 TO, MHRO 
MOV #8IT4,MMR3 
AT THIS POINT 22-BIT 
IS ENABLED, WITH THE 
KIPAR6 IS MAPPED TO 
KJPAR7 IS MAPPED TO 



RESTORE THE T BIT TO ITS CONDITION 

8EF0RE THE LAST TEST 

MAKE THE KERNEL I -SPACE PAGES ALL 

4K, UPWARD EXPANDABLE-. READ/WRITE 

MOVE ADDRESS OF KIPDRO TO R1 

LOAD 8 PDR'S 

KERNEL I-SPACE PAGE X KIPDRX 

SUBTRACT 1 AND BRANCH BACK IF NOT DONE 

CLEAR RO 

;:OVE ADDRESS OF KIPARO TO R1 

LOAD FIRST 6 PAR'S 

MAP KIPARX TO NEXT PHYSICAL PAGE 

MAP RO TO NEXT PAGE 

SUBTRACT 1 AND BRANCH BACK If NOT DONE 

MAP KIPAR6 TO UNIBUS 

MAP KIPAR7 TO I/O PAGE 

ENABLE FULL 18-BIT MAPPING 

ENABLE 22-BIT MAPPING 
RELOCATION FROM MEMORY MANAGEMENT 
KIPAR^S MAPPED TO PHYSICAL 0-24K. 
THE UNIBUS (170000) AND 
THE I/O PAGE (177;.J0). 
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F 

59 



SEQUENCE 70 



2952 



2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
296A 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 



011762 
011762 
011764 
011770 
011776 
012004 
012012 
012016 
012022 
012026 
012032 
012036 
012040 
012044 
012052 
012054 
012060 
012062 
012064 
012072 
012074 
012100 
012104 
012106 
012112 
012114 
012120 
012124 
012126 
012134 
012136 
012142 
012144 
012146 
012150 
012154 
012156 
012162 
012164 
!172 
!200 
02 
JlO 
!212 
!216 



000004 
004737 
012242 
013737 
012737 
012702 
010237 
012700 
012704 
074037 
010046 
013746 
012737 
011401 
005037 
020201 
001047 
012737 
005014 
005037 
005737 
001036 
010237 
010446 
013746 
004737 
000416 
012737 
011401 
105037 
120201 
101012 
105014 
005737 
001006 
010237 
104207 
012737 
QZ2777 
001352 
012737 
010114 
005037 
012637 



005166 
012126 
172354 
177702 
175254 
170200 
004000 
(40000 
172354 

172354 
000020 

001326 



170200 

170200 

000077 
001000 



SBTTL TEST # 4 - MAP REGISTER ADDRESS DECODE lESl 

*TEST 4 MAP REGISTER ADDRESS DECODE TEST 

* THIS TEST TRIES TO VERIFY THAT NONE OF THE INPUTS TO THE ADDRESS 

* DECODER FOR THE UNIBUS MAP REGISTERS IS STUCK TRUE. KIPAR6 IS 

* SET UP TO HOLD 177702 AND R4 HAS THE VIRTUAL ADDRESS TO SELECT 

* MAPLOO, THROUGH KIPAR6. THE TEST THEN CHANGES ONE BIT AT A TIME 

* IN PAR6 SO THAT IT SHOULD NEVER REFERENCE MAPLOO. I? IT DOES, AN 

* ERROR IS REPORTED- 
* 



TST4: 



000004 
001200 
172354 



1$; 



001326 



000020 001326 

001326 
170200 



170200 

172354 
003674 

000020 

001326 



001326 20$: 



005766 
166736 



2$ 
3$ 



000020 001326 4$ 



001326 
172354 



5$: 



SCOPE 

JSR PCPRETST 

.WORD TST5,20$,'V 

MOV KIPAR6-$TMP2 

MOV #177702, KIPAR6 

MOV #175254,R2 

MOV R2.MAPL0 

MOV #8IT11,R0 

MOV #140000, R4 

XOR R0AIPAR6 

MOV RO, -(SP) 

MOV KIPAR6,-(SP) 

MOV #TIMOUT,CPUEXP 

MOV (R4),R1 

CLR CPUEXP 

CMP R2,R1 

BNE 4$ 

MOV #TIMOUT, CPUEXP 

CLR (R4) 

CLR CPUEXP 

TST MAPLO 

BNE 4$ 

MOV R2,MAPL0 

MOV R4,-(S?) 

MOV KIPAR6,-(SP) 

JSR PCADREXT 

BR 2$ 

MOV #TIMOUT, CPUEXP 

MOV (R4),R1 

CLR CPUEXP 

CMP R2,R1 

BNE 3$ 

CLR (R4) 

TST MAPLO 

BNE 3$ 

MOV R2,MAPL0 

ERROR +207 

MOV #77,EADRES+2 

BIT #Blf09,aSUR 

BNE 20S 

MOV #TIMOUT, CPUEXP 

MOV R1,(R4) 

CLR CPUEXP 

MOV (SP)+, KIPAR6 



to SET UP PRETEST DATA 

DATA USED BY PRETST 

SAVE KIPAR6 FOR RESTORATION LATER 

PUT MAP REGISTER ADDR IN PAR6 

PATTERN FOR TESTING. 

LOAD MAP REGISTER 

SET BIT 11 TO FLOAT THROUGH PAR6 

VIRT.ADDR. TO SELECT PAR6 

CHANGE A BIT OF MAP REGISTER O'S ADDR 

SAVE RO ON STACK 

SAVE KIPAR6 ON STACK 

EXPECTING CPU TIME OUT ON UNIBUS 

READ LOCATION POINTED TO BY PAR6 

CLEAR CPIUEXP - DON'T EXPECT TRAPS FOR A WHILE 

SEE IF DATA FETCHED MATCHES PATTERN 

BRANCH IF NOT SAME 

EXPECTING CPU TIME OUT ON UNIBUS 

TRY TO CLEAR THIS LOCATION 

CLEAR CPIUEXP - DON'T EXPECT TRAPS FOR A WHILE 

SEE U MAP REGISTER GOT CLEARED 

BRANCH IF MAP REGISTER NOT ZERO 

RESTORE MAPLO 

PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE USE 

PUT PAR ON STACK FOR ADREXT SUBROUTINE USE 

60 SET DAT^ IN THE 4 WORDS OF ADDROR AND ADRAND 

60 CALL ERROR 

EXPFCTING CPU TIME OUT ON UNIBUS 

READ LOCATION POINTED TO BY PAR6 

CLEAR CPIUEXP - DON'T EXPECT TRAPS FOR A WHILE 

SEE IF DATA FETCHED MATCHES PATTERN 

BRANCH IF NOT SAME 

TRY TO CLEAR THIS LOCATION 

SEE IF MAP REGISTER GOT CLEARED 

BRANCH IF MAP REGISTER NOT ZERO 

RESTORE MAPLO 

GOT TO MAPLO WITH ONE BIT DIFFERENT IN ADDRESS FROM 1777020 

RESTORE 77 TO EADRES+2 

SEE IF LOOP ON ERROR IS SET 

BRANCH BACK TO LOOP IF SO 

EXPECTING CPU TIME OUT ON UNIBUS 

RELOAD THE LOCATION 

CLEAR CPIUEXP - DON'T EXPECT TRAPS FOR A WHILE 

RESTORE KIPAR6 



G 6 

CKKUAEO 11/2A/A4 U81 MAP MACRO Mil 13 11-JAN-82 11:27 PAGE 59-1 SEQUENCE 71 
TEST # A - MAP REGISTER ADDRESS DECODE TEST 

2994 012222 012600 HOV (SP)+,RO ; RESTORE RO 

2995 012224 074037 172354 XOR R0.KIPAR6 ;RESTORE BIT TO ORIGINAL STATUS 

2996 012250 006200 ASR RO ;RI6HT SHIFT ONE PLACE 

llll 9}im 9SIUI .. -... .,.,r, ,. BNE 1$ ^ ;G0 CONTINUE TEST IF BIT NOT SHIFTED OUT YET 

2998 012234 013737 001200 172354 6$: MOV $TMP2,KIPAR6 .-RESTORE KIPAR6 



CKKUAEO 11/2A/4A UBI MAP 
TEST # 5 - DATA PATH. UNI8US 

3011 



TO 



MACRO M1113 
MAIN MEMORY 
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H 

60 



SEQUENCE 72 



0122A2 
012242 
012244 
012250 

3012 012256 

3013 012262 

3014 012266 

3015 012274 

3016 012302 

3017 012306 

3018 012314 

3019 012320 

3020 012324 

3021 012330 

3022 012332 

3023 012340 

3024 012346 

3025 012350 

3026 012352 

3027 012354 

3028 012362 

3029 012370 

3030 012376 

3031 012404 

3032 012412 

3033 012420 

3034 012424 

3035 012430 

3036 012434 

3037 012436 

3038 012440 

3039 012442 

3040 012450 

3041 012452 

3042 012456 

3043 01246 

3044 01 

3045 01 

3046 012476 

3047 012500 



466 
474 



000004 
004737 
012630 
004737 
012704 
012737 
012737 
005037 
012737 
013700 
005037 
005737 
001411 
062737 
062737 
077423 
104010 
000574 
013737 
013737 
042737 
042737 
012737 
012737 
013701 
005037 
022701 
001406 
020001 
001 004 
9§e37 
077464 
012701 
012702 
012703 
012737 
011112 
1112 
1426 



005166 
012262 
002772 
000035 
170400 
170400 
001330 
000020 
140000 
001326 
001330 

000200 
000200 



1 72354 
001210 
170000 
170000 
173214 
000020 
140000 
001326 
173214 



006102 
140000 
000007 
000020 



000005 



172354 
001210 

001326 



172354 
001210 



1 72352 
001206 
172352 
001206 
1^0000 
0U1326 



SBTTL TEST # 5 - DATA PATH, UNIBUS TO MAIN MEMORY 
*TEST 5 DATA PATH, UNIBUS TO MAIN MEMORY 



THIS TEST RUNS A COUNT PATTERN THROUGH A MEMORY LOCATION VIA 
THE UNIBUS. THE UNIBUS MAP IS LEFT OFF DURING THIS TEST SO 
THAT THE ADDRESS IS NOT RELOCATED. THE TEST TRIES TO LOAD THE 
PATTERN INTO ADDRESf. 040000 (8K) BUT IF THE HAP JUMPERS ARE 
SET NOT TO RESPOND 10 THAT ADDRESS J^E NEXT 4K IS TRIED UNTIL 
THE TEST GETS TO MALI MEMORY FROM THE UNIBUS. IF THIS TEST 
DETERMINES THAT IT CANNOT GET TO MAIN MEMORY FROM THE UNIBUS 
IT REPORTS THE FACT AND SKIPS THE NEXT TEST FOR VERIFICATION. 



TST5: 

20$: 
2$: 



3$: 



4$: 



000200 172354 



001326 



8 



5$: 



6$: 



SCOPE 

JSR PC.PRETST 

■WORD TST6,20$,5 

JSR PC,CLRMAP 

MOV *35,R4 

MOV #1 70400. KIPAR6 

MOV #170400, ITMP6 

CLR PCPUER 

MOV #TIMOUT,CPUEXP 

MOV 1 40000, RO 

CLR CPUEXP 

TST PCPUER 

6EQ 4$ 

ADD «00,KIPAR6 

ADD #200,$TMP6 

SOB R4.2$ 

ERROR +10 

BR SIZEJO 

MOV KIPAR6,KIPAR5 

MOV $TMP6JtMP5 

BIC #1 70000, KIPAR5 

BIC #170000, $TMP5 

MOV #173214,120000 

MOV #TIMOUT, CPUEXP 

MOV 1 40000, Rl 

CLR CPUEXP 

CMP #173214, Rl 

6E0 5$ 

CMP R0,R1 

BNE 5$ 

ADD #200,KIPAR6 

SOB R4,2i 

MOV #PATRNS,R1 

MOV #140000, R2 

MOV #7-R3 

MOV #TIMOUT 

MOV (R1),(R; 

CMP (R1),(Ri 

BEO 10$ 




60 SET UP PRETEST DATA 

DATA USED BY PRETST 

CLEAR ALL MAP REGISTERS 

DO 35 ACCESSES 

START WITH ADDRESS 8K FROM UNIBUS 

MOVE IT TO $TMP6 ALSO 

CLEAR ERROR CONDITION LOCATION 

TIMEOUTS MIGHT OCCUR IN THIS TEST. 

TRY TO READ ADDRESS POINTED TO BY PAR6 

CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 

SEE IF READ OF ADDRESS TIMED OUT 

BRANCH IF REFERENCE WAS GOOD 

TRY NEXT 4K BLOCK OF MEMORY 

ADD 200 TO $TMP6 ALSO 

SUBTRACT 1 FROM R4 AND BRANCH IF NOT DONE 

NO UNIBUS ADDRESSES RESPOND 

BRANCH TO SIZE JUMPER SECTION 

PUT PAR6 INTO PAR5 

DO SAME TRANSFER 

MAKE PARS A NON UNIBUS ADDRESS 

CLEAR SAME BITS 

PUT RANDOM NUMBER INTO TEST LOCATION BY FAST BUS 

TIMEOUTS MIGHT OCCUR IN THIS TEST. 

READ TEST LOCATION BY UNIBUS 

CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 

SEE IF DATA WAS READ PROPERLY 

DATA OKAY NOW VERIFY DATA PATH 

SEE IF DATA CHANGED FROM FIRST READ 

BRANCH AROUND NEXT TRY IF SO 

TRY NEXT 4K BLOCK OF MEMORY 

BRANCH BACK TO TRY NEXT 4K BIOCK 

LOAD ADDRESS OF BIT PATTERNS IN Rl 

LOAD VIRTUAL ADDRESS INTO R2 

DO 7 PATTERNS 

TIMEOUTS MIGHT OCCUR IN THIS TEST. 

LOAD COUNT INTO TEST LOCATION VIA U.S. 

COMPARE COUNT WITH DATA READ 

BRANCH IF DATA MATCHES 



CKKUAEO 11/24/AA UBI MAP MACRO M1113 
TEST » 5 - DATA PATH, UNIBUS TO MAIN MEMORY 



30A8 
3049 
3050 
3051 
3052 
3053 
305A 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
306A 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 



012502 
012506 
012512 
0125U 
012520 
012522 
012526 
012534 
012536 
012540 
012542 
012544 
012546 
012554 
012556 
012562 
012564 
012570 
012574 
012576 
012602 
012606 
012610 
012616 
012620 
012622 



011137 
011237 
0112^6 
004737 
011146 
004737 
012737 
000403 
011112 
021112 
001401 
104204 
032777 
001370 
06r701 
077334 
005037 
005737 
001405 
005337 
005337 
104011 
023737 
001404 
104030 
013737 



001174 
001176 

003624 

003650 
012536 



001106 



7$: 



166362 



8$: 

9S2 

10$: 



001000 

000002 

001326 
001320 

001110 
001320 

001206 172352 11$: 
001206 ^72552 
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MOV 


<R1),$TMP0 


MOV 


(R2),$TMP1 


MOV 


(R2),-(SP) 


JSR 


PC-DATEXT 
(Ri),-(SP) 


MOV 


JSR 


PC-PATEXT 
#7$,$LPERR 


MOV 


BR 


8$ 


MOV 


(R1),(R2) 


CMP 


(R1),(R2) 


BEO 


9$ 


ERROR 


+204 


BIT 


A8JT9,S1SWR 


BMC 


7$ 


ADD 


#2,R1 


SOB 


R3,6$ 


CLR 


CPUEXP 


TST 


ERRCNT 


BEQ 


11$ 


DEC 


$eRTTL 


DEC 


ERRCNT 


ERROR 


+11 


CMP 


$TMP5,KIPAR5 


BEQ 


TST6 


ERROR 


+30 


MOV 


$TMP5,KIPAR5 



SEQUENCE 71 



MOVE EXPECTED PATTERN TO $THP0 

MOVE RECEIVED PATTERN TO $TMP1 

PUT DATA ON STACK FOR DATEXT SUBROUTINE USE 

SUBROUTINE TO LOAD DATAOR AND DATAND 

PUT PATTERN ON STACK FOR PATEXT SUBROUTINE USE 

GO SET DATA INTO PATTOR AND PATAND 

SET LOOP ON ERROR POINTER TO 61$ 

BRANCH OVER LOOP ON ERRO^ SECTION 

LOAD COUNT INTO TEST LOCATION Mlfii U.S. 

COMPARE COUNT WITH DATA READ 

BRANCH IF OK NOW 

REPORT ERROR (S) ON UNIBUS DATA PATH 

SEE If LOOP ON ERROR IS SET 

BRANCH BACK IF SO 

MOVE TO NEXT PATTERN 

DECREMENT LOOP COUNTER AND BRANCH IF NOT DONE 

CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 

WERE THERE ANY ERRORS ON THIS TEST 

BRANCH IF NO ERRORS ON THIS TEST 

DON'T COUNT ERROR +11 AS ANOTHER ERROR 

SAME AS ABOVE 

SUMMARY OF ERRORS ON THE UNIBUS DATA PATH 

MAKE SURE PAR5 CONTAINS EXPECTED CONTENTS 

.'BRANCH IF OK 

KIPAR5 NOT LOADED PROPERLY - SKIPPING NEXT TEST 

RESET KIPAR5 FOR EXECUTION OF NEXT TEST 
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TEST # 6 - MAP DOESN'T RELOCATE IF NOT ENABLED 



J 
62 



SEQUENCE 74 



3087 



3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
5100 
3101 
3102 
3103 
3104 
3105 



012630 
012632 
012636 
012644 
012652 
012656 
012662 
012666 
012674 
012700 
012704 
012710 
012716 

012724 
012730 
012734 
012740 
012742 



000004 
004737 
012744 
052737 
013700 
072027 
042700 
042737 
012720 
012710 
005037 
012737 
012737 

005037 
013703 
022703 
001401 
104012 



005166 
012710 
000001 
172354 
177773 
177400 
177000 
021042 
000042 
120000 
000020 
043207 

001326 
120000 
043207 



000006 
177572 



172352 



001326 
140000 



SBTTL TEST # 6 - MAP DOESN'T RELOlATE If NOT ENABLED 

;*****r****rilf ************************ ***************************** 

*TEST 6 MAP DOESN'T RELOCATE iF NOT ENABLED 
* 

* THIS TEST VERIFIES THAT THE UNI8US MAP DOES NOT RELOCATE If BIT5 

* OF MMR3 IS NOT SET. THE TEST ASSUMES THAT THE PREVIOUS TEST HAS 

* RUN SUCCESSFULLY AND LEFT KIPARC POINTING TO THE FIRST UNIBUS 

* MAPPING REGISTER THAT THE UNIBUS MAP WILL RESPOND TO GREATER 

* THAN OR EQUAL TO MAPRE6 M2. KIPAR5 IS ALSO POINTING TO THE 

* SAME MEMORY BASE ADDRESS EXCEPT IT POINTS OVER THE FASTBUS. 

* THE TEST THEN SETS ONE BIT IN EACH A.L.U. OF THE UNIBUS MAP 

* AND TRIES TO REFERENCE MAIN MEMORY OVER THE UNIBUS. SINCE THE 

* MAP IS NOT ENABLED THE LOAD WILL 60 TO MAIN MEMORY UNRELOCATED. 

* 

;***********************************♦*************************** 

TST6: SCOPE 



20$: 



JSR PCPRETST 

.WORD SIZEJ0,20S,6 

BIS VBITO.MMRO 

MOV KIPAR6,R0 

ASH /lf-5>R0 

BIC #177400, RO 

BIC #177000, KIPAR5 

MOV #0?(042>(R0)+ 

MOV #42. (RO) 

CLR 120000 

MOV #TIMOUT-CPUEXP 

MOV #43207,140000 

CLR CPUEXP 

MOV 120000, R3 

CMP #43207, R3 

BEQ SIZEJO 

ERROR +12 



60 SET UP PRETEST DATA 

DATA USED BY PRETST 

TURN MEMORY MANA6EMENT BACK ON 

PUT UNieUS ADDRESS OF MAP RE6ISTER IN RO 

RI6HT SHIFT RO 5 PLACES 

CLEAR UPPER BYTE 

MAKE KIPAR5 ACCESS THE FAST BUS 

SET BOTTOM BIT IN EACH ALU 

SET BOTTOM BIT IN EACH ALU 

CLEAR TEST LOCATION VIA FAST BUS 

TIMEOUTS MI6HT OCCUR IN THIS TEST. 

LOAD TEST LOCATION VIA UNIBUS THIS LOAD SHOULD NOT BE 

RELOCATED BY THE UNIBUC MAP, SINCE BIT05 OF MMR3 IS CLEAR. 

CLEAR CPUEXP - NO TIMEO-JTS FOR A WHILE 

READ TEST LOCATION VIA FAST BUS 

SEE IF DATA MATCHES 

BRANCH IF DATA GOOD 

MAP RELOCATED WHEN NOT ENABLED 
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SEQUENCE 75 



3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
31U 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
31 2A 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3U0 
3U1 
3U2 
3K3 
3U4 
3U5 
3146 
3147 
3148 
3149 
3150 



012744 
012750 
012754 
012760 
012764 
012770 
012772 
012774 
012776 
013002 
013010 
013016 
013022 
013030 
013034 
013042 
013050 
013056 
013062 
013070 
013076 
013102 
013104 
013110 
013114 
013116 
013124 
013132 
013134 
013136 
013142 
013146 
013152 



012705 
012700 
012701 
012702 
012720 
005020 
005022 
077105 
012703 
052737 
052737 
012700 
012737 
012702 
012737 
012737 
012737 
005037 
012737 
012737 
004737 
000417 
005037 
004737 
104214 
062737 
022737 
001356 
104013 
000137 
005037 
004737 
104213 



020226 
170200 
000040 
006002 
020000 



006002 
000040 
000001 
117776 
170000 
125252 
Mllll 
Villi 
^llllt 
001312 
013070 
000020 
003474 

001326 
005230 

000200 
177400 



010000 
001326 
005266 



.S8TTL DETERMINATION OF FIRST USEABLE MAP REGISTER 

* 

THIS TEST DETERMINES THE SETTING OF THE JUMPERS ON THE UNI8US 

MAP WHICH ALLOW THE MAP TO RESPOND TO THOSE ADDRESSES BETWEEN 

THE JUMPER RANGE. THE DEFAULT SETTING ALLOWS THE MAP TO RESPOND 

TO ADDRESSES 000000 - 757776 ON THE UNI3US. If THE JUMPERS ARE 

NOT SET IN THEIR DEFAULT POSITION AN INFORMATIONAL MESSAGE IS GIVEN. 

»>»»»NOTE««««< 
THIS IS THE FIRST TEST IN WHICH THE UNIBUS MAP IS TURNED ON. 



172516 
177572 

172350 

001174 
003532 
001310 

001106 
001326 



172350 
172350 



SIZEJO; MOV 
MOV 
MOV 
MOV 

1$: MOV 
CLR 
CLR 
SOB 
MOV 
BIS 
BIS 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 

2$: MOV 
JSR 
BR 
CLR 
JSR 
ERROR 
ADD 
CMP 
BNE 
ERROR 
JMP 

3$: CLR 
JSR 
ERROR 



^■k'kiiii-kitlfkifk-k-kickickn 

^$DDW0.R5 

#MAPLO,RO 

^40,R1 

*SPECST, R2 

J«'20000,(R0> + 

"RO)* 

(R2) + 

R1J$ 

#SPECST,R3 

#8IT5,MMR3 

-(fBITOj.MMRO 

#1177?6,R0 

*1 70000, KIPAR4 

yi'125252,R2 

ft~^ ,STMP0 

*-1,FTTHRU 

#37776, U8M24L 

UBM24U 

#2$,$LPERR 

#TIM0UT,CPUEXP 

PCTSTLOC 

3$ 

CPUEXP 

PC^DSABLD 

+214 

*200,KIPAR4 

#1 77400, KIPAR4 

2$ 

+13 

START 

CPUEXP 

PC-ENABLD 

+2i3 



*********** t^ *** 1^ 4r***<^* It 4 4r*(^*ilr***^* 

PUT ADDRESS OF $DDW0 IN R5 

LOAD ADDRESS OF FIRST MAP REGISTER IN RO 

DO ALL 40 REGISTERS 

SET R2 TO BEGINING OF SPECIAL STACK 

LOAD 4K INTO LOWER 16 BITS AND 

CLEAR THE UPPER 6 BITS 

CLEAR THE SPECIAL STACK LOCATION 

BRANCH IF THERE ARE MOR*: TO LOAD 

RESET SPECIAL STACK POINTER 

TURN ON MAP RELOCATION 

MAKE SURE MEMORY MANAGEMENT IS ON 

THIS WILL BE USED TO SELECT PAR 4, ADDRESS 17776 

LOAD MAP REGISTER -200 IN KIPAR4 

CONSTANT TO LOAD INTO LOCATION 17776 

MOVE -1 TO MAP REGISTER POINTER 

INITIALIZE ONE TIME ENTRANCE FLAG IN SUBROUTINE 

MOVE TEST CELL ADDRESS TO LOCATION USM24L 

CLEAR UPPER LOCATION UBM24U 

MOVE LOOP ON ERRRC^ ADDRESS TO SLPERR 

EXPECTING CPU TIME OUT ON UNIBUS 

GO TO SUBROUTINE TO SEE IF LOCATION RESPONDS 

RETURN IS HERE IF LOWEST FOUND 

CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 

GO SEE I"^ REGISTER SHOULD BE DISABLED 

MAP REGISTER DISABLED WHEN SHOULD BE ENABLED 

MAP TO NEXT REGISTER 

SEE U WE ARE POINTING JUST BELOW THE I/O PAGE 

60 TEST NEXT MAP REGISTER IF NOT 

FATAL ERROR, RESTARTING PROGRAM 

JUMP TO RESTART PROGRAM 

CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 

GO CHECK TO SEE IF REGISTER SHOULD BE ENABLED 

MAP REGISTER ENABLED WHEN SHOULD BE DISABLED 



CKKUAEO 
SECTION 

3151 

3152 

3153 

31 5A 

3155 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 

31 6A 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

31 8A 

3185 

31 F6 

3187 

3188 

3189 

3190 



11/24/44 UBI 
TO DETERMINE 
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SEQUENCE 76 



013154 
013162 
013170 
013176 
013200 
013204 
013212 
013220 
013224 
013232 
013240 
013246 
013254 
013256 
013264 
013272 
013274 
013300 
013306 
013314 
013316 
013322 
013324 
013332 
013336 
013340 
013344 

013350 
013352 
013360 
013364 
013372 
013400 



013737 
013737 
022737 
001427 
005037 
012737 
013737 
005337 
013737 
162737 
012737 
012737 
000532 
012737 
062737 
000414 
005037 
062737 
022737 
001416 
004737 
104213 
01Z7.37 
004737 
000756 
005037 
004737 

104214 
013737 
005337 
013737 
023727 
001522 



001174 
172350 
170000 

001272 
170000 
001174 
001274 
172350 
000200 
177400 
000031 

013324 
000200 

001326 
000200 
177400 

005266 

000020 
003474 

00^326 
005230 



001174 
001270 
172350 
001260 



001266 
001256 
001256 



001262 
001274 

001264 
001264 
001260 
001270 

001106 
172350 



172350 
172350 






;* 



.S6TTL SECTION TO DETERMINE NUMBER OF USEABLE MAP REGISTERS 

THIS SECTION DETERMINES THE NUMBER OF USEABLE MAP REGISTERS BY ACCOM- 
PLISHING THE SAME LOCATION ACCESS TEST AS IN THE PREVIOUS SECTION. 



SI2EJ1 



1$: 
2$; 



001326 3$: 



001270 4$; 

001260 
177400 



MOV $TMP0,MMRLOW 

MOV KIPAR4, LOWEST 

CMP /t'170000, LOWEST 

BEQ 1$ 

CLR U8RL0W 

MOV *1 70000, UBMLOW 

MOV $TMP0,UBRHI 

DEC U8RHI 

MOV KIPAR4,UBMHI 

SUB *200,UBMHI 

MOV ^177400, HIGEST 

MOV #31,MMRHI 

BR YESMSG 

MOV *3$,$LPERR 

ADD *200,KIPAR4 

BR 3$ 

CLR CPUEXP 

ADD yV200,KIPAR4 

CMP #1 77400. KIPAR4 

BEQ 4$ 

JSR PCENABLD 

ERROR +213 

MOV ^TIMOUT. CPUEXP 

JSR PCTSTLOC 

BR 2$ 

CLR CPUEX^^ 

JSR PCDSABLD 

ERROR +214 

MOV $TMPO,MMRHI 

DEC MMRHI 

MOV KIPAR4,HIGEST 

CMP HI6EST,;yi77400 

BEQ NOMSG 



MOVE REGISTER NUMBER FOUND USEABLE TO MMRLOW 

MOVE LOWEST USEABLE REGISTER TO LOWEST 

SEE IF LOWEST REGISTER FOUND WAS THE LOWEST 

BRANCH AROUND SETUP IF IT WAS 

MAP REGISTER IS LOWEST FOR UNIBUS MEMORY 

MOVE PAR VALUE OF U6 MEMORY TO U6ML0W 

MOVE REGISTER NUMBER FOUND USEABLE TO U6RHI 

POINT IT AT HIGHEST UB MEMORY MAP REGISTER 

MOVE KIPAR4 TO UNIBUS WAP HIGHEST AND 

SUBTRACT 200 FROM IT TO POINT TO LAST USEABLE U8MEM PAGE 

MOVE HIGHEST REGISTER TO HIGEST AND 

POINT TO LAST USEABLE HAP REGISTER 

GO TYPE MESSAGE OF NON-DEFAULT INFORMATION 

SET LOOP ON ERROR TO 3$ 

MAP TO NEXT REGISTER 

BRANCH OVER POST-TSTLOC CODE 

CLEAR CPUEXP - DON'T EXPECT TRAPS FOR A WHILE 

MAP TO NEXT REGISTER 

SEE IF ALL MAP REGISTERS HAVE bCPN TRIED 

BRANCH IF ALL ARE DONE 

GO SEC If MAP REGISTER SHOULD BE ENABLED 

MAP REGISTER ENABLED WHEN SHOULD BE DISABLED 

TIMEOUTS MIGHT OCCUR IN THIS TEST. 

GO TO SUBROUTINE TO SEE IF IT RESPONDS 

RETURN IS HERE IF IT WAS LOADED 

CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 

RETURN IS HERE IF NOT LOADED - 60 SEE IF 

REGISTER SHOULD BE DISABLED 

MAP REGISTER DISABLED WHEN SHOULD BE ENABLED 

MOVE REGISTER FOUND TO MMRHI 

DECREMENT THIS VALUE - IT IS ONE TOO MANY 

MOVE FIRST UNUSABLE REGISTER TO HIGEST 

SEE If UPPER JUMPER IS DEFAULT. 

BRANCH AROUND MESSAGE TYPEOUT IF IT IS DEFAULT 
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SEQUENCE V 



3191 

3192 

3193 

31 9A 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

5206 

3207 

3208 

3209 

3210 

3211 

3212 

321 i 

32U 

3215 

3216 

3217 

3218 

3219 

3220 

3221 



013402 
013410 
013416 
013424 
013432 
013434 
013442 
013450 
013452 
013456 
013460 
013466 
013472 
013474 
013500 

013502 
013506 
013512 
013514 
013522 
013530 
013536 



013737 
062737 
013737 
012737 
000412 
062737 
022737 
001414 
004737 
104214 
012737 
004737 
00C403 
005037 
000755 

O0bO37 
004737 
104213 
013737 
013737 
013737 
005337 



001260 
000200 
001174 
013460 

000200 
177400 

005230 

000020 
003474 

001326 



001326 
005266 

172350 
172350 
001 17^. 
001274 



Of 1^62 
001262 
001272 
001106 

172350 
172350 



001276 
001264 
001274 



,SBTTL DETERMINE UNUSEABLE MAP REGISTER WINDOW SIZE 

;* THIS SECTION PERFORMS THE SAME LOCATION ACCESS TEST PREVIOUSLY DONE 

;* LOOKING FOR THE FIRST ACCESSIBLE REGISTER, OR THE UPPER LIMIT. ONCE 

;* FOUND, THE SIZE OF THE WINDOW HAS BEEN DETERMINED AND THE MESSAGE 

;* TELLING THE USER OF THE SIZE IS PRINTED. 



************* 



SIZEJ2: 



1$: 



001326 2$: 



3$: 



MOV 

ADD 

MOV 

MOV 

BR 

ADD 

CMP 

BEQ 

JSR 

ERROR 

MOV 

JSR 

BR 

CLR 

BR 

;AT 

CLR 

JSR 

ERROR 

MOV 

MOV 

MOV 

DEC 



THI 



*************** 

HIGEST^UBMLOW 
/f200.UBMLOW 
$TMPO,UBRLOW 
yS'2$,$LPERR 
2$ 

;6'20O,KIPAR4 
y;n77400,KIPAR4 
3$ 

PCDSABLD 
+214 

#TIMOUT,CPUEXP 
PCTSTLOC 
3$ 

CPUEXP 
1$ 
S POINT, KIPAR4 
CPUEXP 
PCENABLD 
+213 

KIPAR4,8UPWIN 
KIPAR4,UBMHI 
STMPO.UBRHI 
U8RHJ 



******************** *********<»r***** 

MOVE UPPER LIMIT TO UBMLOW LOCATION 

POINT UBMLOW TO FIRST USABLE UNIBUS MEM PAGE 

:MOVE REGISTER NUMBER TO U8RL0W 
SET LOOP ON ERROR TO 2$ 

BRANCH OVER CH'^CK FOR NON-EXISTENT LOCATION 
MAP TO NEXT RECiJSTER 

SEE IF WE ARE POINTING JUST BELOW THE I/O PAGE 
60 INITIALIZE liBMHI IF WE ARE 
GO SEE IF LOCATION SHOULD BE DISABLED 
MAP REGISTER DISABLED WHEN SHOULD BE ENABLED 
TIMEOUTS MIGHT OCCUR IN THIS TEST. 
60 TO SUBROUTINE TO SEE IF IT DOESN'T RESPOND 
RETURN IS HERE IF IT WAS LOADED - 60 INITIALIZE UBMHI 
CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 
RETURN IS HERE IF NOT - 60 BACK FOR ANOTHER TRY 
POINTS JUST ABOVE HIGHEST ADDRESS OF UNIBUS MEMORY 
CLEAR CPUEXP - NO TIMEOUTS FOR A WHILr 
60 SEE IF MAP REGISTER SHOULD BE ENAELED 
MAP REGISTER ENABLED WHEN SHOULD BE DISABLED 

:MOVE THIS VALUE TO 'B'EGINING 'UP'PfrR 'WIN'DOW 
MOVE THIS TO UBMHI ALSO 
MOVE MAP REGISTER POINTER TO U8RHI 
DECREMENT THIS VALUE - IT IS ONE TOO MANY 



CKKUAEO 
ROUTINE 

3222 
3223 
322A 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
323A 
3235 
3236 
3237 
3238 
3239 
32A0 
32 AT 
32A2 
3243 
32AA 
32A5 
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013542 
013546 
013550 
013554 
013560 
013564 
013566 
013570 
013574 
013600 
013604 
013610 
013612 
013616 
013622 
013624 
013626 
013632 
013634 
013636 
013640 
013642 



005737 
001037 
104401 
012700 
012746 
010046 
010146 
000137 
104401 
104401 
022703 
001416 
104401 
012703 
0143^6 
104405 
104401 
005743 
001402 
011346 
000^71 

104401 



020150 

033002 
005740 
013574 



002244 
001223 
001223 
006002 

006261 
006002 



001223 



001223 



.SBTTL 

YESMS6: TST 
BNE 
TYPE 
MOV 
MOV 
MOV 
MOV 
JMP 

1$: TYPE 
TYPE 
CMP 
BEQ 
TYPE 
MOV 

2$: MOV 

3$: TYPDS 
TYPE 
TST 
BEQ 
MOV 
BR 

4$: TYPE 



ROUTINE TO PRINT 
***************** 

$PASS 

N0MS6 

.JMPMSG 

#DTMS.R0 

#1$,-(SP) 

RO, -(SP) 

R1, -(SP) 

TYPDAT 

,$CRLF 

,$CRLF 

*SPECST,R3 

NOMSG 

.TOMSG 

/ySPECST,R3 

-(R3),-CSP) 

,$CRLF 

4$ 

(R3),-(SP) 

3$ 

,$CRLF 



SEQUENCE 78 



THE WINDOW SIZE MESSAGE 
********************************* 

SEE IF THIS IS FIRST PASS 

BRANCH TO NEXT SFCTION IF NOT FIRST PASS 

TYPE SIZE JUMPERS NOT IN DEFAULT - FOR INFO ONLY 

SET UP MESSAGE POINTER 

PUSH RETURN ON THE STACK 

PUSH RO ON THE STACK 

PUSH R1 ON THE STACK 

GO TYPE THE DATA 

TYPE A <CRLF> 

TYPE ONE MORE <CRLF> 

SEE IF ANY TIMEOUTS OCCURED 

BRANCH TO NEXT SECTION IF NONE 

TYPE THE TIMEOUTS MESSAGE 

RESET R3 

PUSH THE REGISTER » ONTO THE STACK IN ORDER IT WAS PUSHED 

TYPE THE NUMBER IN DECIMAL, LEADING ZEROS SUPPRESSED 

TYPE A <CRLF> 

SEE U THERE IS ANOTHER REGISTER NUMBER TO PRINT 

BRANCH AROUND SETUP IF NONE 

PUSH THIS NUMBER ON THE STACK 

BRANCH BACK TO PRINT IT 

TYPE ONE MORE <CRLF> 



._J 
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SEQUENCE 79 



32A6 
32^7 
32'i8 
32^9 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 



013646 
013550 
013654 
013660 
013664 
013670 
013674 
013676 
013704 



010546 
013705 
042705 
072527 
052705 
010537 
012605 
013737 
062737 



001256 
170000 
177773 
170200 
001300 

001300 
000002 



.SOTTL SETUP POINTERS FOR LOWEST AND HIGHEST MAP REGISTERS 

i SETUP POINTERS TO THE LOWEST AND THE HIGHEST USA8LE 
* MAPPING REGISTERS TO CONTINUE WITH TEST. 



001302 
001302 



NOMSG: MOV R5, -(SP) 

MOV L0WEST.R5 

BIC yi'170000,R5 

ASH /V-5,R5 

BIS *170200,R5 

MOV R5,LREGL 

MOV (SP)+, R5 

MOV LREGL-LREGU 

ADD tf2,LREGU 



•SAVE R5 

•MOVE PAR DATA TO R5 FOR CONVERSION 

;CLEAR BITS 15 TO 12 

; SHIFT INDICATOR BITS TO THE RIGHT 5 PLACES 

;FORM ADDRtSS 

iSAVE RESULTS 

;RESTORE R5 

;MOVE ADDRESS TO LREGU 

;POINT TO UPPER 6 BITS OF «AP REG 



CKKUAEO n/2A/4A U8I HAP MACRO H1 113 n-JAN-82 11:27 

TEST # 7 - ENSURE THAT THERE IS NO DUAL HAPPING 



C 7 
PAGE 68 



SEQUENCE 80 



3280 



013712 
013712 
0137U 
013720 

3281 013726 

3282 013732 

3283 013736 

3284 013744 

3285 013750 

3286 013756 

3287 013762 

3288 013766 

3289 013772 

3290 013776 

3291 014004 

3292 014010 

3293 014016 

3294 014022 

3295 014024 

3296 014030 

3297 014032 

3298 014036 
3299 

3300 014042 

3301 014050 

3302 014052 
3303 

3304 014056 

3305 014064 

3306 014072 

3307 014100 

3308 014104 

3309 014112 

3310 014116 

3311 014120 

3312 014126 

3313 014134 



000004 
004737 
014616 
005037 
005037 
052737 
004737 
042737 
005037 
012703 
013702 
013700 
052737 
005037 
013737 
022702 
001003 
822712 
001410 
012712 
010237 



0127'67 
000405 
010237 



012737 
162737 
062737 
005037 
012737 
020037 
001003 
013737 
012737 
011304 



005166 
014260 
172516 
001312 
000060 
002772 
000001 
001174 
117776 
001300 
001256 
000001 
001320 
001256 
170204 

020000 

040000 
057776 

057776 

037776 

037776 
000200 
100200 




000007 

17;,'516 
177572 



177572 
172350 



001314 
000020 



001314 



001314 
172350 
172350 

001310 



001310 
001326 



SBTTL TEST # 7 - ENSURE THAT THERE 15 NO DUAL HAPPING 
•TEST 7 ENSURE THAT THERE IS NO DUAL HAPPING 



THIS TEST VERIFIES THAT THERE IS NO DUAL MAPPING. IT CLEARS 
ALL THE MAP REGISTERS EXCEPT THE ONE UNDER TEST, AND LOADS 
THAT ONE WITH 00040000. IF MAP RELOCATION IS ENABLED (AND 
IN THIS TEST IT IS), SUBROUTINE CLRMAP CLEARS ALL BUT THE 
LOWER 16 BITS OF MAPLi, AND LOADS 20000 THERE. THIS IS SO 
THAT APT, IF CONTROLLING THIS DIAGNOSTIC, CAN STILL EXAMINE 
THE PROPER LOCATIONS. THE TEST THEN USES A VIRTUAL ADDRESS 
TO SELECT THAT MAP REGISTER AND ADD 17776, SO THAT IT SHOULD 
REFERENCE ADDRESS 00057776 (00037776 IF MAPLl CONTAINS 20000 
AS PER CONDITIONS DESCRIBED ABOVE). A REFERENCE IS MADE THROUGH 
EACH OF THE REGISTERS AND ANY THAT FETCH THE CORRECT DATA ARE 
CHECKED TO SEE THAT IT WAS THE MAP REGISTER UNDER TEST. IF 
NOT, BOTH THE MAP REGISTER UNDER TEST AND THE DUALED REGISTER 
ARE REPORTED. 



TST7: 



100$: 



1$: 



2$: 



3$: 
4$: 

41$: 



45$: 



SCOPE 

JSR 

.WORD 

CLR 

CLR 

BIS 

JSR 

BIC 

CLR 

MOV 

MOV 

MOV 

BIS 

CLR 

MOV 

CMP 

BNE 

CMP 

6EQ 

MOV 

MOV 

MOV 

BR 

MOV 

MOV 
SUB 
ADD 
CLR 
MOV 
CMP 
BNE 
MOV 
MOV 
MOV 



PCPRETST 

TST10,20$,7 

MMR3 

U8M24U 

#60,MMR3 

PC, CLRMAP 

*1 ,MMRO 

$TMPO 

#117776>R3 

LRE6L,R2 

LOWEST-RO 

M^ ,MMRO 

ERRCNT 

LOWEST, KIPAR4 

y»'MAPL01,R2 

1$ 

#20000, (R2) 

2$ 

#40000,(R2) 

R2,577?6 

#57776, UBM24P 

3$ 

R2,37776 

«7776,UBH24P 
#200,KIPAR4 
#200,KIPAR4 
PCPUER 
#17776, UBH24L 

.kipAra 



!?i' 



UBM24P.UBM24L 

#TIMOUT,CPUEXP 

(R3),R4 



60 SET UP PRETEST DATA 

DATA USED BY PRETST 

CLEAR MMR3 

CLEAR THE UPPER EXPECTED LMA LOCATION 

ENABLE 22-BIT ADDRESSING AND MAP RELOCATION 

CLEAR ALL MAP REGISTERS 

TURN OFF MEMORY MANAGEMENT 

$TMPO IS USED AS A FLAG IN THIS TEST 

SELECT P.A.R. 4 OFFSET OF 17776 

PUT ADDRESS OF LOWEST USABLE HAP REGISTER IN R2 

LOAD PAR POINTING TO MAP REGISTER UNDER TEST IN RO 

MAKE SURE MEMORY MANAGEMENT IS ON 

CLEAR THE ERROR COUNT FOR ERROR 202 BELOW 

PAR OF LOWEST USEA3LE MAP REGISTER IS LOADED IN KIPAR4 

SEE IF WE ARE POINTING AT MAPLl 

BRANCH IF NOT 

SEE IF IT CONTAINS 20000 (FOR APT USE) 

BRANCH IF SO 

LOAD MAP REGISTER UNDER TEST WITH 8K BASE 

LOAD TEST LOCATION WITH THE ADDRESS 

OF THE MAP REGISTER UNDER TEST 

MOVE ANTICIPATED ADDRESS TO LOCATION UBM24P 

BRANCH OVER LOCATION SETUP 

LOAD TEST LOCATION WITH THE ADDRESS 

OF THE MAP REGISTER UNDER TEST 

MOVE ANTICIPATED ADDRESS TO LOCATION 

PREPARE KIPAR4 FOR FIRST 'ADD 200" 

TRY NEXT MAP REGISTER 

CLEAR THE ERROR RECEIVER 

MOVE DEFAULT LMA ADDRESS TO UBM24L 

SEE IF REGISTER UNDER TEST IS POINTED TO BY KIPARA 

BRANCH AROIWD SETUP IF NOT 

MOVE SPECIAL LMA ADDRESS TO LOCATION 

POSSIBLE NON-EXISTENT MEMORY 

READ THROUGH THE MAP REGISTER 



CKKUAEO 11/24/AA U81 MAP 
TEST # 7 - ENSURE THAT THERE 



33U 0U136 

3315 0UU2 

3316 0141 A6 

3317 014152 

3318 014154 

3319 014156 
5320 014160 

3321 014166 

3322 014170 

3323 014176 

3324 014204 

3325 014210 

3326 014212 

3327 014216 

3328 014222 

3329 014224 

3330 014230 

3331 014234 

3332 014240 

3333 014244 

3334 014246 

3335 014252 

3336 014256 

3337 014260 

3338 014262 

3339 014264 

3340 014272 

3341 014274 

3342 014302 

3343 014310 

3344 014314 

3345 014316 

3346 014322 

3347 014326 

3348 014330 

3349 014332 

3350 014340 

3351 014342 

3352 014344 

3353 014350 

3354 014352 

3355 014356 

3356 014362 

3357 014364 

3358 014366 

3359 014372 

3360 014374 

3361 014402 

3362 014404 

3363 014412 

3364 014414 

3365 014422 

3366 014430 

3367 014432 

3368 014440 

3369 014442 

3370 014444 



MACRO Mil 13 11-JAN-82 11:27 PAGE 
IS NO DUAL MAPPING 



7 
68-1 



SEQUENCE 81 



005037 


001326 






CLR 


005037 


001320 






CLft 


005737 


001330 






TST 


001110 








BNE 


020402 








CMP 


001075 








ONE 


032777 


004000 


164750 




BIT 


001406 








BEO 


013737 


1 77736 


001304 




MOV 


013737 


177734 


001306 




MOV 


020037 


172350 




49$: 


CMP 


001455 








BEQ 


004737 


005076 






JSR 


001304 


001306 






• WORD 


000450 








BR 


011337 


001202 






MOV 


013746 


001202 






MOV 


013746 


172350 






MOV 


004737 


003674 






JSR 


010246 








MOV 


013746 


172356 






MOV 


004737 


003624 






JSR 


000424 








BR 


020402 






20$: 


CMP 


001023 








BNE 


032777 


004000 


164644 




BIT 


001406 








BEO 


013737 


177736 


001304 




MOV 


013737 


1 77734 


001306 




MOV 


020037 


172350 




59$: 


CMP 


001406 








BEQ 


004737 


005076 






JSR 


001304 


001306 






.WORD 


000401 








BR 


104210 






46$: 


ERROR 


032777 


001000 


164576 


47$: 


BIT 


001347 








BNE 


000414 








BR 


005237 


001174 




5$: 


INC 


000411 
004737 








BR 


005076 




6$: 


JSR 


001304 


001306 






.WORD 


000401 








BR 


000403 








BR 


020037 


172350 




7$: 


CMP 


001764 








BEQ 


022737 


177400 


172350 


8$: 


CMP 


001420 








BEQ 


853737 
001227 


001260 


172350 




CMP 








BNE 


062737 


000200 


172350 


9$: 


ADD 


022737 
001405 
023737 


177400 


172350 




CMP 
BEQ 
CMP 


001276 


172350 




001365 








BNE 


000616 








BR 


005737 


001174 




10$: 


TST 



CPUEXP 

ERRCNT 

PCPUER 

8$ 

R4,R2 

6$ 

^SITl1,aSWR 

49$ 

LMAHMMAH 

LMALOW.IMAL 

R0,KIPAR4 

5$ 

PCCHKLMA 

LMAHAMAL 

5$ 

(R3\$TMP3 

$TMP3,-(SP) 

KIPAR4,-(SP) 

PCADREXT 

R2.-(SP) 

KIPAR7,-(SP) 

PC.DATEXT 

46i 

R4.R2 

47i 

#6JTll,aSWR 

59$ 

LMAHI,LMAH 

LMALOW.LMAL 

R0-KIPAR4 

47i 

PCCHKLMA 

LMAHAMAL 

47$ 

+210 

*8IT9,aSWR 

20$ 

8$ 

$TMP0 

8$ 

PCCHKLMA 

LMAHAMAL 

7$ 

8$ 

R0,KIPAR4 

5$ 

#1 77400. KIPAR4 

10$ 

HIGEST,KIPAR4 

4$ 

#200,KIPAR4 

#177400, KIPAR4 

10$ 

BUPWIN,KIPAR4 

9$ 

41$ 

$TMP0 



NO MORE TIMEOUTS FOR AWHILE 

CLEAR ERROR COUNT 

SEE If THERE WAS AN ERROR 

BRANCH AROUND DATA TEST IF SO 

SEE IF CORRECT DATA WAS FETCHED 

BRANCH IF NO MATCH 

SEE IF THIS IS AN 11/24 WITH U8 MEM ONLY 

8RA/JCH If MOT 

SAVE LMA HIGH REG IN LMAH 

SAVE LM^\ ;.0W REG IN LMAL 

SEF IF MAP REGISTERS ARE THE SAME 

BPMCH JF rCRRECT MAP REGISTER WAS USED 

GO CHEH' O."^ 11/24 WITH UB MEMORY ONLY 

ADt.RESSE.S OF LOCATIONS CONTAINING LMA CONTENTS 

RPVURN Ii> HERE IF MATCH ACHIEVED 

SKVr CONTENTS FOR ERROR PRINTING 

MOvE FAULTY DATA TO STACK FOR SUBROUTINE USE 

^0^*? PAR4 CONTENTS TO STACK FOR SUBROUTINE USE 

GC >£r DATA IN THE 4 WORDS OF ADDROR AND ADRAND 

'U^ ADDRESS OF REGISTER ON STACK FOR DATEXT USE 

MOVE PAR CONTENTS TO STACK FOR SUBROUTINE USE 

60 SET DATA IN DATAOR AND DATAND 

BRANCH OVER LOOP ON ERROR SETUP 

SEE If CORRECT DATA WAS FETCHED 

BRANCH IF NO MATCH 

SEE IF THIS IS AN 11/24 WITH US MEM ONLY 

BRANCH IF NOT 

SAVE LMA HIGH REG IH LMAH 

SAVE LMA LOW REG IN LMAL 

SEE IF MAP REGISTERS ARE THE SAME 

BRANCH IF CORRECT MAP REGISTER WAS USED 

60 CHECK FOR 11/24 WITH UB MEMORY ONLY 

ADDRESSES OF LOCATIONS CONTAINING LMA CONTENTS 

RETURN IS HERE IF MATCH ACHIEVED 

DUAL MAPPING ERROR IN THE UNIBUS MAP 

SEE If LOOP ON ERROR IS SET 

BRANCH BACK IF SO 

BRANCH AROUND ADDRESS MATCH SETTING 

SET FLAG WHEN ADDRESSES MATCH 

BRANCH AROUND SUBROUTINE CHECK - NOT NEEDED 

60 CHECK FOR ";1/24 WITH UB MEMORY ONLY 

ADDRESSES OF LOCATIONS CONTAINING LMA CONTENTS 

RETURN IS HERE IF MATCH ACHIEVED 

BRANCH OVER LMA SPECIFIC COMPARE CODE 

SEE IF MAP REGISTERS ARE THE SAME 

BRANCH IF CORRECT MAP REGISTER WAS USED 

SEE IF LAST REGISTER HAS BEEN TRIED 

BRANCH TO CONTINUE IF SO 

SEE IF ALL HAVE BEEN TRIED 

BRANCH IF STILL MORE TO TRY 

MAP TO NEXT MAP REGISTER 

SEE IF WE ARE AT THE TOP 

BRANCH TO CONTINUE IF SO 

SEE IF WE ARE POINTING TO THE UPPER WINDOW START 

BRANCH BACK FOR ANOTHER INCREMENTING SET IF NOT 

GO BACK FOR A NEW TRY 

SEE THAT THERE WAS A SUCCESSFUL MATCH 



CKKUAEO n/2A/A4 UBI MAP 


MACRO Ml 113 11-JAN-82 


E 7 
11:27 PAGE 68-2 


TEST # 7 " ENSURE THAT 


THERE IS NO DUAL MAPPING 




3371 0U450 


001006 






BNE 


11$ 


3372 0U452 


010246 






MOV 


R2,-(SP) 


3373 0U45A 


013746 


172356 




MOV 


KIPAR7,-(SP) 


337A 0U460 


004737 


003674 




JSR 


PC.ADREXT 


3375 0U46A 


104210 






ERROR 


+2l0 


3376 0UA66 


005037 


001174 


11$: 


CLR 


$THPO 


3377 0UA72 


022702 


1 70204 




CMP 


#MAPL01,R2 


3378 01A476 


001006 






BNE 


12$ 


3379 014500 


022712 


040000 




CMP 


HO000AR2) 


3380 0U504 


001403 






BEQ 


12$ 


3381 014506 


005037 


037776 




CLR 


37776 


3382 014512 


000401 






BR 


13$ 


3383 014514 


005012 




12$: 


CLR 


(R2) 


3384 014516 


062700 


000200 


13$: 


ADD 


#200,R0 


3385 014522 


062702 


000004 




ADD 


*4,R2 


3386 014526 


022700 


177400 




CMP 


ff^fT^OOM 


3387 014532 


001421 






BEQ 


15$ 


3388 014*^^4 


0i;3700 


001260 




CMP 


illGEST^RO 


3339 01s * 


001402 






BEQ 


14$ 


3390 014j4/ 


000137 


014010 




JMP 


100$ 


3391 0145^^ 


062700 


000200 


14$: 


ADD 


M2Q0.t<: 


3392 OV^ 


062702 


000004 




ADD 


HJR2 


3393 01 V . . 


022700 


177400 




CMP 


#1^7400. RO 


3394 01s >j^ 


001405 






BEQ 


15$ 


3395 014564 


020037 


001276 




CMP 


R0.8UPWIN 


3396 014570 


001336 






BNE 


11$ 


3397 014572 


000137 


014072 




JMP 


4$ 


3398 014576 


005737 


001320 


15$: 


TST 


ERRCNT 


3399 014602 


001405 






BEQ 


TSTIO 


3400 014604 


005337 


001110 




DEC 


$ERTTL 


3401 014610 


005337 


001320 




DEC 


ERRCNT 


3402 014614 


104016 






ERROR 


+16 



SEQUENCE 82 



BRANCH IF THERE WAS 

PUT ADDRESS OF REGISTER ON STACK FOR ADREXT USE 

PUT PAR ON ST/<CK FOR SUBROUTINE ADREXT USE 

GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 

DUAL fWPim ERROR IN THE UNIBUS MAP 

CLEAR FLAG FOR NEXT REGISTER 

SEE IF R2 IS POINTING TO MAPL1 

BRANCH IF NOT 

DOES MAPL1 CONTAIN 40000? 

BRANCH IF IT DOES 

CLEAR LOCATION 37776 ONLY - MAPLl IS TO BE LEFT ALONE 

SKIP OVER REGISTER CLEAR STEP 

CLEAR NAP REGISTER JUST TESTED 

POINT TO NEXT MAP REGISTER UNDER TEST 

POINT TO NEXT MAP REGISTER TO LOAD 

SEE IF LAST REGISTER HAS BEEN TRIED 

BRANCH TO NEXT SECTION If SO 

SEE IF ALL MAP REGS HAVE BEEN TESTED 

BRANCH IF NO MORE TO TEST 

JUMP TO BEGIN AGAIN 

POINT TO NEXT MAP REGISTER UNDER TEST 

POINT TO NEXT MAP REGISTER TO LOAD 

SEE If LAST REGISTER HAS BEEN TRIED 

BRANCH TO NEXT SECTION IF SO 

SEE If WE ARE POINTING TO 'PPER WINDOW START 

BRANCH FOR ANOTHER INCRSMfcNT SET IF NOT 

JUMP BACK FOR ANOTHER RUN 

SEE If THERE WERE ANY ERRORS 

;8RANCH TO NEXT TEST IF NO ERRORS 

DON'T COUNT ERROR +16 AS ANOTHER ERROR 

SAME AS ABOVE 

SUMMARY OF DUAL MAPPING ERRORS 



CKKUAEO 11/2A/44 UBI MAP MACRO Mil 13 11-JAN-82 11:27 PAGE 

TEST # 10 - LOAD LOG'S AOOOO-77776 WITH THEIR ADRES'S 



F 
69 



SEQUENCE 83 



3411 



014616 
014616 
014620 
014624 

3412 014632 

3413 0U640 

3414 014646 

3415 014652 

3416 014656 

3417 014662 

3418 014664 

3419 014670 

3420 014672 

3421 014700 

3422 014706 
3423 

3424 

3425 

3426 014710 

3427 

3428 014716 

3429 014720 
3430 

3431 014724 

3432 014730 

3433 014734 

3434 014740 

3435 014742 

3436 014744 

3437 014746 

3438 014750 

3439 014752 

3440 014760 

3441 014766 

3442 014770 

3443 014772 

3444 014774 
3A45 015000 
3446 015004 
34A7 015006 

3448 015012 

3449 015016 

3450 015022 

3451 015026 

3452 015030 

3453 015032 

3454 015034 



000004 
004737 
015072 
042737 
012737 
012700 
012701 
012702 
C10021 
062700 
077204 
062737 
022737 
101361 



101465 
013700 

072027 
012701 
012702 
011103 
020003 
001012 
022120 
077205 
062737 
022737 
101360 
000430 
011146 
013746 
004737 
010146 
013746 
004737 
010337 
005037 
000403 
011103 
020003 
001401 



005166 
015030 
000040 
000400 
040000 
100000 
010000 

000002 

000200 
001000 



172354 

000006 
140000 
010000 



000200 
171000 



172354 
003674 

172344 
003624 
005770 
005772 



S8TTL TEST # 10 - LOAD LOG'S 40000-77776 WITH THEIR ADRES'S 

*TEST 10 LOAD LOG'S 40000-77776 WITH THEIR ADRES'S 

it 

* THIS TEST IS USED TO LOAD MAIN MEMORY FROM ADDRESS 00040000 TO 

* ADDRESS 000077776 WITH ITS OWN ADDRESS. IT THEN CHECKS THAT 

* MEMORY OVER THE UNIBUS AND LOGS ANG REPORTS ANY ERRORS THAT 

* IT FINDS. 



TST10: 



000010 
172516 
172350 



1$: 
2$: 



172350 
172350 



• * 



022737 171000 172354 



3$: 
4$: 

5S: 



172354 
172354 



6S: 



20$: 



SCOPE 

JSR PCPRETST 

.WORD TST11,20$,10 

BIG ft&ijs.mnt 

MOV *400.KIPAR4 

MOV #40000-R0 

MOV #100000, R1 

MOV #4096., R2 

MOV R0,(R1)+ 

ADD #2,R0 

SOB R2-2$ 

ADD #200,KIPAR4 

CMP #1000,KIPAR4 

BHI 1$ 



60 SET UP PRETEST DATA 

DATA USED BY PRETST 

TURN OFF MAP RELOCATION 

MAP PAGE 4 TO 8K 

STARTING ADDRESS FOR DATA PATTERN 

VIRTUAL ADDRESS 

LOAD 4096 LOCATIONS AT A TIME 

LOAD PHY. ADDR. INTO EACH MEMORY LOG. 

POINT TO NEXT PHYSICAL ADDRESS 

BRANCH IF 4K OF MEMORY NOT LOADED 

POINT TO NEXT 4K BANK OF MEMORY 

SEE IF 16K IS LOADED 

BRANCH IF MORE MEMORY TO LOAD 



MEMORY FROM 8K - 16K IS NOW LOADED WITH ITS OWN ADDRESS 



CMP #171000, KIPAR6 

BLOS TST11 

MOV KIPAR6,R0 

ASH #6-R0 

MOV #140000, Rl 

MOV #4096. -,R2 

MOV (R1),R3 

CMP R0,R3 

BNE 6$ 

CMP (R1)+,(R0)+ 

SOB R2,4$ 

ADD #200,KIPAR6 

CMP #171000, KIPAR6 

BHI 3$ 

BR 10$ 

MOV (R1),-(SP) 

MOV KIPAR6,-(SP) 

JSR PC-ADREXT 

MOV RI--(SP) 

MOV KIPAR2,-(SP) 

JSR PC,DATEXT 

MOV R3-EADRS2 

CLR EADRS2+2 

BR 7$ 

MOV (R1),R3 

CMP R0,R3 

6EQ 8$ 



DID I USE ANY MAP REGISTER 

BELOW REGISTER 6 (UB. ADDR 100000) 

;BRANCH TO NEXT TEST IF NOT 

LOAD PAR6 INTO RO TO GET 

THE STARTING DATA PATTERN 

RO NOW HOLDS THE STARTING DATA PATTERN 

STARTING VIRTUAL ADDRESS 

PREPARE TO READ 4K AT A TIME 

READ MAIN MEMORY THROUGH UNIBUS 

SEE IF THE ADDRESSES MATCH 

BRANCH IF ERROR 

CHANGE VIRTUAL t PHYSICAL ADDRESSES 

BRANCH IF 4K OF MEMORY NOT READ 

POINT TO NEXT BA** OF 4K THROUGH UNIBUS 

SEE IF THIS POINTS TO 16K PLUS 2 

BRANCH IF 16K OF PEMORY NOT CHECKED 

TEST FINISHED, BRAiNCH TO EXIT 

PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE USE 

PUT PAR6 CONTENTS ON STACK FOR SUBROUTINE USE 

GO SET DATA IN THE 4 WORDS OF V^OROR AND ADRAND 

PliT DATA ON STACK FOR DAIEXl SUBROUTINE 

MOVE PAR CONTENTS TO Si'ACK FOR SUBROUTINE USE 

SUBROUTINE TO LOAD DATAOR AND OATAND 

MOVE DATA IN R3 TO EADRS2 FOR ERROR GALL 

CLEAR UPPER 6 BITS TO PRINT 

BRANCH OVER LOOP ON ERROR SETUP 

READ MAIN MEMORY THROUGH UNIBUS 

SEE IF THE ADDRESSES MATCH 

BRANCH IF OK 



CKKUAEO 11/24/AA 
TEST # 10 - LOAD 



UBI MAP MACRO M' 
LOC'S 40000-77776 WITH 



3A55 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 



015036 
015040 
015046 
015050 
015052 
015056 
015060 
015064 
015070 



104205 
032777 
001370 
000736 
005737 
001405 
005337 
005337 
104014 



001000 164070 



001320 



001110 
001320 





G 7 


113 11-JAN-82 


11:27 PAGE 69-1 


THEIR ADRES'S 




7$: ERROR 


+205 


8$: BIT 


#BIT9,aSWR 


6NE 


20$ 


BR 


5$ 


10$: TST 


ERRCNT 


BEQ 


TST11 


DEC 


SERTTL 


DEC 


ERRCNT 


ERROR 


+14 



SEQUENCE 84 



:DIPN*T READ ADDRESSES CORRECTLY FROM UNI8US 

:SEE IF LOOP ON ERROR IS SET 

^BRANCH BACK If SO 

: CONTINUE TESTING 

:WERE THERE ANY ERRORS ON THIS TEST? 

:;8RANCH IF NO ERRORS ON THIS TEST 

: DON'T COUNT ERROR +14 AS ANOTHER ERROR 

:SAME AS ABOVE 

SUMMARY OF UNI8US ADDRESS FAILURES 



CKKUAEO 11/2A/AA UBI MAP MACRO Ml 113 
TEST # 11 - MAIN MEMORY TIMEOUT THROUGH MAP 



11-JAN-82 11:27 



H 7 

PAGE 70 



SEQUENCE 85 



3472 



3473 
3474 
3475 
3476 
3477 
3478 



015072 
015072 
015074 
015100 
015106 
015114 
015120 
015126 
015132 
015136 



000004 
004737 
015140 
052737 
005037 
012737 
005037 
004737 
104015 



005166 
015132 
000040 
004312 
000074 
001310 
020014 



000011 
172516 

001312 



S8TTL TEST # 11 - MAIN MEMORY TIMEOUT THROUGH HAP 

*TEST 11 MAIN MEMORY TIMEOUT THROUGH MAP 
* 

* THIS TEST GENERATES A TIME OUT THROUGH THE UNIBUS MAP BY TRYING 

* TO REFERENCE ADDRESS 17000000 IN MAIN MEMORY. IT USES THE LOWEST 

* USA9LE MAP REGISTER, WHICH IN THE DEFAULT CASE IS MAP REGISTER 

* ZERO. 
* 

TST11 



20$: 



SCOPE 

JSR PCPRETST 

.WORD TST12,20$,11 

BIS ttBlT5,mRZ 

CLR LOEFLG 

MOV #74.U8M24U 

CLR U8M24L 

JSR PC.MMTOTM 

ERROR +15 



;G0 SET UP PRETEST DATA 

;DATA USED BY PRETST 

;TURN MAP RELOCATION BACK ON 

; CLEAR LOEFLG FOR ERROR LOOP INDICATOR 

.-EXPECTING 74 IN UPPER POSITION OF 11/24 LMA 

;EXPECTING ZERO IN LOWER POSITION 

;G0 DO THE TEST 

.'RETURN HERE IF ERROR - UNIBUS DID NOT TIME OUT 



CKKUAEO n/2AMA UBI HAP 

TEST # 12 * RELOC USING LOWEST 

3A89 



MACRO M1113 11-JAN-82 11:27 PAGE 
USABLE MAP REG THRU UNJ8US 



I 
71 



r 



SEQUENCE 86 



015140 
0151A0 
015U2 
015146 

3490 015154 

3491 015160 

3492 015164 

3493 015170 

3494 015172 



000004 
004737 
015174 
005037 
005037 
004737 
104211 
000774 



005166 
015154 
004312 
001312 
004106 



000012 



.S6TTL TEST # 12 - RELOC USING LOWEST USABLE MAP REG THRU UNIBUS 

*TEST 1? RELOC USING LOWEST USABLE MAP REG THRU UNIBUS 
* 

* THIS TEST CHECKS OUT THE FULL ADDITION PROPERTIES OF THE UNIBUS 

* MAP A.L.U.- IN THE DEFAULT CASE IT USES MAP REGISTER ZERO BUT 

* IF THE MAP JUMPERS HAVE BEEN ALTERED TO DE-SELECT SOME MAP REGISTERS 

* THIS TEST WILL USE THE LOWEST USABLE MAP REGISTER. 

* IF AN ^RRQR OCCURS THE TEST WILL REPORT THE PHYSICAL ADDRESS 

* THAT WAS DESIRED, AND THE DATA AT THE ADDRESS THAT WAS REFERENCED. 

* 

TST12; 

SCOPE 

JSR PCPRETST ;G0 SET UP PRETEST DATA 

• WORD TST13,20$J2 ;DATA USED BY PRETST 

20$; CLR LOEFLG ; CLEAR L0EFL6 - FLAG USED FOR ERROR RETURN 

CLR U8M24U ; CLEAR UPPER LOCATION 

1$: JSR PCjMAPADD ;G0 DO THE TEST 

ERROR +211 ;RETURN IS HERE FOR ERROR 

BR 1$ ;60 BACK TO THE SUBROUTINE 



CKKUAEO 11/2A/44 UBI MAP MACRO M1113 11-JAN-82 11:27 

TEST # 13 - CARRY PROP OF MAP'S RELOC ADDER THRU UNIBUS 



J 7 



PAGE 72 



SEQUENCE S7 



3503 



015174 
350; 015176 
3505 
3506 
3507 
3508 
3509 015202 



3510 
3511 
3512 
3513 
35H 
3515 



015210 
0152U 
015220 
015226 
015232 

3516 01523A 

3517 015236 



000004 

004737 005166 



015236 015210 000013 

000040 

005037 004312 

005037 001312 

012737 020000 001310 

004737 004416 

104211 

000774 



SBTTL TEST # 13 - CARRY PROP OF MAF'S RELOC ADDER THRU UNIBUS 

*TEST 13 CARRY PROP OF MAP'S RELOC ADDER THRU UNIBUS 
* 

* EVERY ADDRESS OF THE FORM XXXXOOOO IS GENERATED HERE STARTING 

* WITH 00030000 UP TO 17000000. THAT IS, THE FIRST OF EVERY 2K 

* WORDS IS ADDRESSED, TO INSURE THAT THE ADDER lU THE MAP IS 

* WORKING PROPERLY . 

* 

TST13i SCOPE 

JSR PCPRETST ;60 SET UP PRETEST DATA 

**IMPORTANT**: IF THE POSITION OF THIS TEST IS CHANGED, CHANGE IHt THIRD 
WORD BELOW TO THE NEW TEST NUMBER THIS TEST WILL OCCUPY. 



20$: 



1$: 



2$: 



.WORD 


2$,20$J3 


NEXMEM=BIT5 


CLR 


LOEFLG 


CLR 


USM24U 


MOV 


^20000, UBM24L 


JSR 


PCTCPMRA 


ERROR 


+211 


BR 


1$ 



DATA USED BY PRETST 

BIT05 IS NON-EXISTENT MEMORY BIT IN THE CPU ERROR REGISTER 

CLEAR LOEFLG - USED AS AN ERROR RETURN FLAG 

CLEAR UPPER LOCATION 

PUT 20000 IN LOWER LOCATION 

GO DO THE TEST 

RETURN IS HERE IF AN ERROR 

RETURN TO THE TEST 



CKKUAEO 11/2^/^4 UBI WAP 
UNIBUS MAP SETTUP 

3518 
3519 
3520 
3521 
3522 

3523 015236 000004 

3524 015240 105337 001100 

3525 015244 104414 

3526 015246 032777 004000 

3527 015254 001405 

3528 015256 062737 000005 

3529 015264 000137 015744 
3530 

3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 

3545 015270 013701 001302 

3546 015274 005721 

3547 015276 012721 020000 

3548 015302 005021 

3549 015304 005021 

3550 015306 005021 

3551 015310 013701 001256 

3552 015314 062701 000200 

3553 015320 010137 172342 

3554 015324 062701 000200 

3555 015330 010137 172340 



MACRO M1113 



K 7 

11-JAN-82 11:27 PAGE 73 



SEQUENCE SB 



.SBTTL UNIBUS MAP SETTUP 

THE NEXT 3 TESTS ARE RUN THROUGH THE UNIBUS MAP 

UBMSU: SCOPE ;L00P ON PREVIOUS TEST 

DECS STSTNM ;DECREMENT STSTNM - THIS IS NOT A TEST 

T6ITR ;RESTORE T-6IT IF IT WAS ON 

163662 BIT ^BITlhaSWR ;SEE IF THIS IS AN 11/24 WITH UB MEMORY ONLY 

BEO 1$ .-BRANCH TO SETUP IF NOT 

001100 ADD ff5,$TSlHn ;FUD6E STSTNM 5 TESTS AHEAD AND 

JMP TST21 ;JUMP OVER NEXT 5 TESTS 

* THIS CODE SETS UP THE TWO MAP REGISTERS ABOVE THE LOWEST 

* USABLE ONE TO POINT TO PHYSICAL MEMORY FROM - BK. IN THE 

* DEFAULT CASE, IN MANUFACTURING AND IF THERE IS NO UNIBUS MEMORY, 

* THIS WILL BE MAP REGISTERS 1 AND 2. MAP REGISTER 1 WILL POINT 

* TO PHYSICAL 4K - 8K SO *'ACT-ir* WILL WORK PROPERLY AND MAP 

* REGISTER 2 WILL POINT TO PHYSICAL - 4K. THIS MEANS THAT 

* KIPARO SHOULD GET 170400 SO IT PUTS ADDRESSES 040000 TO 057776 

* ON THE UNIBUS AND KIPAR1 SHOULD GET 170200 SO IT PUTS ADDRESSES 

* 020000 TO 037776 ON THE UNIBUS. 

;*****f****f ********************************* ********************* 



1$: MOV LREGU,R1 

TST (R1)+ 

MOV #20000, (R1)+ 

CLR (R1)+ 

CLR (R1)+ 

CLR (R1)+ 

MOV LOWEST. R1 

ADD JO'200,R1 

MOV R1-KIPAR1 

ADD *200,R1 

MOV R1, KIPARO 



PUT POINTER TO LOWEST MAP REGISTER IN Rl 
POINT TO LOWER 16 BITS OF LOWEST + 1 
LOAD LOWER 16 BITS OF (LOWEST + 1), POINTING TO 4-8K 
CLEAR UPPER 6 BITS OF (LOWEST + 1) 
CLEAR LOWER 16 BITS OF (LOWEST + 2) 
6 BITS OF (LOWEST + 2) 



CLEAR UPPER 
LOAD Rl 
POINT Rl TO 
LOAD PARI 
POINT Rl TO 
LOAD PARO 



(LOWEST + 1) 
(LOWEST + 2) 



CKKUAEO 11/2A/AA 
TEST # U - MAIN 

3567 



UBI MAP 
MEM, T.O. 



MACRO Ml 113 
THROUGH MAP, CODE 



3568 
3569 
3570 



01533A 
015334 
015336 
015342 
015350 
015354 
015360 



000004 
004737 
015362 
005037 
004737 
104015 



005166 
015354 
004312 
020014 



000014 



n-JAN-82 11:27 PAGE 
RUN OVER U,8. 



L 
74 



SEQUENCE 89 



.SBTTL TEST # 14 - MAIN MEM. T.O. THROUGH MAP, CODE RUN OVER U.S. 

;*********************♦***********»**«„*****************♦**♦**** 

*TEST 14 miN MEM. T.O. THROUGH MAP, CODE RUN OVER U.8. 

THIS TEST GENERATES A TIME OUT THROUGH THE UNI8US MAP BY TRYING 
TO REFERENCE ADDRESS 17000000 IN MAIN MEMORY. IT USES THE LOWEST 
USABLE MAP REGISTER, WHICH IN THE DEFAULT CASE IS MAP REGISTER 
ZERO. 



THIS TEST IS BEING RUN WITH ALL MEMORY REFERENCES GOING THROUGH 
THE UNIOUS MAP. 



;********************♦*♦♦**** Wiffllf^^^^iir^^iltilf *********** ************* 

TST14: 



20$: 



SCOPE 
JSR 
■ WORD 
CLR 

ERROR 



PCPRETST 

TST-.S.I^OS.U 

LOEFLG 

PC^MMTOTM 

+1$ 



GO SET UP PREJEST DATA 

DATA USED BY PRETST 

CLEAR LOOP ON ERROR FLAG 

60 DO TEST ON PAGE 60 OF THIS LISTING 

RETURN HERE If ERROR - UNI8US DID NOT TIME OUT 



CKKUAEO n/24/44 UbI MAP MACRO M1113 11-JAN-82 11:27 

TEST # 15 - RELOC USING LOWEST USABLE MAP REG USING MAP REG 



M 7 
PAGE 75 



SEQUENCE 90 



358A 



015362 
015362 
01536A 
015370 

3585 015376 

3586 015404 

3587 015410 

3588 015414 

3589 015416 



000004 
004737 
015420 
012737 
005037 
004737 
104211 
000774 



005166 
015404 
060000 
004312 
004106 



000015 
060000 



S8TTL 

****** 

*TEST 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

; ***** 

TST15: 



20$ 



TEST Af 15 - RELOC USING LOWEST USA8LE MAP REG USING MAP REG 
********************************************************** 



15 



RELOC USING LOWEST USABLE MAP REG USING MAP REG 



THIS TEST CHECKS OUT THE FULL ADDITION PROPERTIES OF THE UNIBUS 

MAP A.L.U.. IN THE DEFAULT CASE IT USES MAP REGISTER ZERO BUT 

IF THE MAP JUMPERS HAVE BEEN ALTERED TO DE-SELECT SOME MAP REGISTERS 

THIS TEST WILL USE THE LOWEST USABLE MAP REGISTER. 

IF AN ERROR OCCURS THE TEST WILL REPORT THE PHYSICAL ADDRESS 

THAT WAS DESIRED, AND THE DATA AT THE ADDRESS THAT WAS REFERENCED. 

THIS TEST IS BEING RUN WITH ALL MEMORY REFERENCES GOING THROUGH 
THE UNIBUS MAP. 

**********************************************«*******^**^ 



1$: 



SCOPE 

JSR PCPRETST 

•WORD TST16420S,15 

MOV #060000, 060000 

CLR L0EFL6 

JSR PCMAPADD 

ERROR +211 

BR 1$ 



GO SET UP PRETEST DATA 

DATA USED BY PRETST 

MAKE SURE ADDRESS 060000 CONTAINS ITS OWN ADDRESS AS DATA 

CLEAR L0EFL6 - USED IN ERROR RETURN 

GO DO THE TEST 
.RETURN IS HERE FOR ERROR 
;RETURN TO THE SUBROUTINE 



CKKHAEO 11/24/44 UBI MAP MACRO M1113 11-JAN-82 11:27 
TEST # 16 - CARRY PROP OF MAP'S RELOC ADDER USING MAP REG 



N 7 
PAGE 76 



3598 



3599 
3600 
3601 
3602 



015420 
015420 
015422 
015426 
015434 
015440 
015444 
015446 



000004 
004737 
015450 
005037 
004737 
104211 
000774 



005166 
015434 
004312 
004416 



SBTTL TEST # 16 - CARRY PROP OF MAP'S RELOC ADDER USING MAP REG 

*TEST 16 CARRY PROP OF MAP'S RELOC ADDER USING MAP REG 

* 

* EVERY ADDRESS OF THE FORM XXXXOOOO IS GENERATED HERE STARTING 

* WITH 00030000 UP TO 17000000. THAT IS THE FIRST OF EVERY 2K 

* WORDS IS ADDRESSED, TO INSURE THAT THE ADDER IN THE MAP IS 

* WORKING PROPERLY . 
* 

;*************************** *************l^l^***«r 1^***1^ ****** ****** 

TST16: 

SCOPE 



000016 



JSR PC.PRETST 

.WORD TST17,20$J6 

20$: CLR L0EFL6 

1$: JSR PCJCPMRA 

ERROR +211 

BR 1$ 



SEQUENCE 91 



GO SET UP PRETEST DATA 
DATA USED BY PRETST 

CLEAR L0EFL6 - USED AS ERROR RETURN FLAG 
60 DO THE TEST 
RETURN IS HERE IF AN ERROR 
;RETURN TO THE TEST 



CKKUAEO 11/2^/4A UBI MAP 
TEST # 17 - VERIFY TRAP DUE 

3633 



TO 



MACRO M1113 
CACHE PARITY 



11-J/'N-82 
INTERl^UPT 



11:27 PAGE 



B 
11 



8 



SEQUENCE 92 



363A 
3635 
3636 
3637 
3o38 
3639 
36A0 
36A1 
3642 
3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 



015450 
015450 
015452 
015456 
015464 
015470 
015474 
015500 
015506 
015512 
015514 
015520 
015522 
015530 
015532 
015540 
015542 
015544 
015552 
015554 
015562 
015570 
015574 
015602 
015604 



000004 
004737 
015610 
005037 
005037 
005037 
012737 
105737 
001403 
105237 
0QQ511 
132737 
001405 
032737 
001423 
000404 
{mill 
00K16 
^nill 
112737 
004737 
012737 
005703 
001401 



005166 
015554 
177572 
172516 
172340 
000200 
007140 

001100 

000200 

000100 



000017 
172342 

020163 
020164 



000100 163364 



000005 
000001 
005324 
000000 



005460 
005470 

177746 



■ SBTTL TEST # 17 - VE.'^IFY TRAP DUE TO CACHE PARITY INTERRUPT 

*TEST 17 "^l^KWi TRAP DUE TO CACHE PARITY INTERRUPT 

; ««r 4r ilr llr 4t A <lr ilr******^ «r «r tif «[««***«* A A*%ik*1lr(ki^)lr*J^i^AiVt^ A )^i^/(iV*lVA<^t^** ********* 
M ik<lr*llr***«t*«*j^OTE*****<*r**<^lVi^ 

* THE MAP WILL BE SHUT OFF FOR THE REMAINDER OF THE DIAGNOSTIC 

* BEFORE ANY TEST CODE IS EXECUTED. IT U NOT NEEDED. 

* THIS TEST IS OPTIONAL AND II SELECTED BY SETTING MFM HARDWARE 

* SWITCH REGISTER BIT 08 TO A 1 IN THE CASE OF STANDALONE OPERATION 

* OF THE DIAGNOSTIC. IN THE CASE IF MANUFACTURING APT RUNTIME MODE 

* THEN BIT 08 OF SSWREG IZ SET T- 1 THROUGH APT SCRIPTING. 



;* 



** 



TST1 



THE TEST VERIFIES THE SIGNAL GENERATED FROM THE CACHE 
TO THE U8I MODULE WHICH INDICATES TO THE UBI THAT A CACHE INTERRUPT 
IS BEING CALLED FOR(CACHL PE IH\^ L). 

THIS TEST ASSUMES THAT ALL MODULES EXCEPT THE UBI NODULE m^^E KNOWN 
GOOD MODULES. 

THIS TEST TOGETHER WITH OTHER CACHE TESTS,ALLOW MFG. TO ELIMINATE 
HAVING TO RUN THE CACHE DIAfjMOSTIC DURING QUICK 
*'ERIFY TESTING OF THE UBI MOJULE. 

TEST DESCRIPTION: 

VERIFY INTERRUPT LOGIC BY ASSURING THAT A TRAP OCCURS TO LOCATION 
114 WHEN A LOCATION PREVIOUSLY WRITTEN 
WITH WRONG HI/LO BYTE PARITY \% ACCESSED. 
CONDITIONS: PEA^O 

DCPI-0 

7; 



1$: 

2$: 
20$: 



SCOPE 

JSR PC.PRETST 

-WORD TST20,20$J7 

CLR MMRO 

CLR MMR3 

CLR KIPARO 

MOV «00,KIFAR1 

TSTS CPUTYP 

BEO IS 

INCB STSTNM 

BR TST21 

BITS #200,$£NVM 

6EQ 2$ 

BIT #100-$SWRE6 

BEQ TST20 

BR 20$ 

iHT #100.SSWR 

BEO TST20 

MOV #5,CASH1 

MOVB *1,CASH2 

JSR PC,CASHSR 

MOV #0, CACHE 

TST R3 

BEQ TST20 



IT SHOULD AND 
IT SHOULD 



GO SET UP PRETEST DATA 

DATA USED BY PRETST 

TURN OFF MEMORY MANAGEMENT 

TURN OFF MAP RELOCATION 

PUT PARO BACK WHERE 

PUl PARI BACK WHERE 

\% THIS AN 11/24? 

BRANCH OVER JUMP IF 11/44 

INCREMENT TFST NUMBER TO SIMULATE SKIPPING TEST 

BRANCH OVER THIS AND NEXT TESTS 

IS APT SIZING? 

NO;TRY HARDWARE SWITCH REGISTER 

YES APT IS SIZINr;DOES APT SAY TO DO THIS TEST 

;N0 - SKIP TEST 

YES.DO TEST 

DOES HARDWARE SWITCH REGISTER SAY TO DO TEST? 

;N0 - SKIP TEST 

MOVE BYTE TO LOAD TO CACHE TO SUB .:DP«002 

MOVE TEST 1 TO LOCATION IN SUBROUTINE i:DPM002 

60 DO THE CASH TEST 

TURN CACHE ON 

DID TRAP OCCUR? 

;BRANCH TO NEXT TEST IF Ytb 



J 



L 



CKKUAEO 11/2A/AA UBl MAP 

TEST ^ 17 - VERIFY TRAP DUE TO 



MACRO M1113 
CACHE PARITY 



11-JAN-82 
INTERRUPT 



11:27 PAGE 



C 8 
77*1 



SEQUENCE 93 



3655 015606 104020 



ERROR +20 



; INTERRUPT/ABORT LOGIC TESTS TRAP TO LOC 1U DID NOT OCCUR 



CKKUAEO 11/24/A4 UBl MAP 
TEST * 20 - VERIFY TRAP DUE 

3689 



TO 



MACRO H1 113 
CACHE PARITY 



11-JAN-82 
A30RT 



11:27 PAGE 



D 
78 



8 



SEQUENCE 94 



015610 
015610 
015612 
015616 

3690 01562A 

3691 015632 

3692 015634 

3693 0156A2 

3694 015644 

3695 015652 

3696 015654 

3697 015656 

3698 015664 
015666 
015674 
015702 
015706 
015712 
015714 



3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 



015716 
015720 



000004 
004737 
015744 
032777 
001437 
132737 
001405 
032737 
001427 
000404 
032777 
001422 
012737 
112737 
004737 
022704 
001401 
104021 

005703 
001401 



005166 
015666 
000100 

000200 

000100 



000020 
163304 

020163 

020164 



000100 163252 



000004 
000002 
005324 
Mini 



005460 
005470 



SBTTL TEST # 20 - VERIFY TRAP DUE TO CACHE PARITY ABORT 

*TEST 

* 

* 
* 
* 

* 
* 
* 
* 

* 
* 

* 
* 

* 
* 

* 
* 

* 



20 ^l^l^'i TRAP DUE TO CACHE PARITY ABORT 
THIS TEST IS OPTIONAL AND IS SELECTED BY SETTING MFM HARDWARE 
SWITCH REGISTER BIT 08 TO A 1 IN THE CASE OF STANDALONE OPERATION 
OF THE DIAGNOSTIC. IN THE CASE OF MANUFACTURING APT RUNTIME MODE 
THEN BIT 08 OF SSWREG IS 11^ TO 1 THROUGH APT SCRIPTING. 

THE TEST VERIFIES THE SIGNAL GENERATED FROM THE CACHE(6US P6L) 
TO THE U6I MODULE WHICH INDICATES TO THE USI THAT A CACHE ABORT 
IS BEING CALLED FOP. 

THIS TE3T ASSUMES THAT ALL MODULES EXCEPT USI ARE KNOWN GOOD MODULES 

THIS TEST TOGETHER WITH OTHER CACHE TESTS.ALLOW MFG. TO ELIMINATE 
HAVING TO RUN THE CACHE DIAGNOSTIC DURING QUICK 
"^l^Wi TESTING OF THE U8I MODULE. 

TEST DESCKIPTION: 

VERIFY ABORT LOGIC BY THE FOLLOWING RESULTS WHEN A LOCATION 
PREVIOUSLY WRITTEN WITH WRONG HI/LO BYTE PARITY 1% ACCESSED. 

1. INSTRUCTION CYCLE WILL BE ABORTED 

2. THE ABORT CAUSES TRAP TO 114 



PROCEDURE: 



INHIBIT CLOCKING OF PA.'^ITY ERROR SIGNAL TO 
INTERRUPT LOGIC. ALLOW CMPE<15> TO BE SET 
BY ABORT SIGNAL WHICH IS ASSERTED BY PARITY 
ERROR SIGNAL TO ABORT LOGIC. 



PEA=1 
DCPI=1 



TST20: 



CONDITIONS: 
*********i(fft*f******it****ft*f^ft*iif*jif**»if **************** ******** 



12$: 
20$: 



1$; 



SCOPE 

JSR PCPRETST 

.WORD TST21,20$,20 

BIT #BIT6,8SWR 

6EQ 21$ 

BITS #200,$ENVM 

BEQ 12$ 

BIT #100,$SWREG 

BEQ 21$ 

BR 20$ 

BIT #:oo,aswR 

BEQ 21$ 

MOV tf4,CASHl 

M0V8 #2,CASH2 

JSR PC^CASHSR 

CMP ^'\M 

BEQ 1$ 

ERROR +21 

TST R3 

BEQ 2$ 



GO SET UP PRETEST DATA 

DATA USED BY PRETST 

DOES SWITCH REGISTER SAY TO DO TEST? 

NO - SKIP TEST 

IS APT SIZING? 

NO; TRY HARDWARE SWITCH REGISTER 

YES APT IS SIZIN6;DCES APT SAY TO DO THIS TEST 

NO - SKIP TEST 

YES, DO TEST 

DOES HARDWARE SWITCH REGISTER SAY TO DO TEST? 

NO - SKIP TEST 

MOVE CACHE LOAD VALUE TO LOC IN SUB ;DPM002 

MOVE 2ND TEST FLAG TO LOCATION IN SUB ;DPM002 

GO DO CACHE TEST 

WAS INSTRUCTION ABORTED LEAVING R4 INTACT? 

YES 

INTERRUPT/ABORT TESTS R4 WAS OVERWRITTEN WITH 

DATA INDICATING THAT INSTRUCTION WAS NOT ABORTED 

DID TRAP OCCUR 

YES, PASS 



CKKUAEO 11/24/4A UBI MAP 

TEST # 20 - VERIFY TRAP DUE TO 



MACRO M1113 
CACHE PARITY 



5708 015722 

3709 015724 

3710 015732 

3711 015740 



104022 
012737 
062737 
000137 



000000 
000007 
017164 



177746 
001100 



2$: 
21$: 



11-JAN-82 
ABORT 

ERROR 
MOV 
ADD 
JMP 



11:27 PAGE 



^22 

#0, CACHE 

TST30 



E 8 

78-1 



SEQUENCE 95 

INTERRUPT/ABORT TESTS TRAP DID NOT OCCUR DUE TO ABORT 
TURN CACHE ON 

ADD 7 TO STSTNM TO COMPENSATE FOR 7 TESTS SKIPPED 
JUMP OVER NEXT 7 TESTS - THEY ARE FOR AN 11/24 ONLY 



CKKUAEO 11/24MA UBI MAP MACRO M1113 11-JAN-82 11:27 

TEST # 21 - LHA REGISTER PHYSICAL ADDRESS CHECK 



PAGE 



F 
79 



8 



SEQUENCE 96 



3724 



0157AA 
0157A4 
015746 
015752 

3725 015760 

3726 

3727 015762 

3728 015764 

3729 015766 

3730 015770 

3731 015772 

3732 015774 

3733 015776 
3734 

3735 016000 

3736 016002 

3737 016004 

3738 016006 

3739 016010 

3740 016012 

3741 016014 
3742 

3743 016016 

3744 016022 

3745 016026 

3746 016034 

3747 016042 

3748 016046 

3749 016054 

3750 016062 

3751 016066 

3752 016074 

3753 016100 

3754 016104 

3755 016112 

3756 016120 

3757 016122 

3758 016130 

3759 016136 

3760 016140 

3761 016146 

3762 016154 

3763 016162 



000004 
004737 
016220 
000416 
000002 
040000 
057776 
052524 
045252 
043146 
057036 
040776 

000000 
017776 
012524 
005252 
003146 
017036 
000776 
000010 
012701 
012702 
042737 
042737 
013746 
013737 
052737 
005037 
052737 
005077 
005077 
017137 
026137 
001007 
013737 
042737 
001424 
013737 
013737 
016137 
005037 



005166 
016104 



015762 
000007 
000001 
000060 
172344 
001256 
000060 
172340 
000001 
163200 
163176 
OOQOOO 
000016 

177736 
177700 

1 77734 
177736 
000016 
005766 



SBTTL TEST # 21 - LMA REGISTER PHYSICAL ADDRESS CHECK 

*TEST 21 LMA REGISTER PHYSICAL ADDRESS CHECK 
* 

THE NEXT 7 TESTS ARE EXECUTED ON THE 11/24 ONLY. 



THIS TEST IS TO CHECK OUT THE LMA (LAST MAPPED ADDRESS) REGISTER FOR 
PROPER CONTENTS. FIRST, THE PAR AND MAP REGISTERS ARE SET, THEN A 
PHYSICAL ADDRESS IS LOADED INTO AN EXPECTED DATA LOCATION. THEN THE 
MAP IS INSURED TO BE ON AND A MEMORY ACCESS IS DONE, USING THE MAP 
REGISTER SO THE LMA IS LOADED. THE LMA IS THEN CHECKED FOR CONTAINING 
THE PROPER CONTENTS, CALLING AN ERROR IF EXPECTED DATA DID NOT APPEAR. 



000021 



*************************************************************** 

TST21! 

SCOPE 

JSR PCPRETST 

.WORD TST22,20$,21 

BR 10$ 

.RADIX 2 

100$: .WORD 0100000000000000 

.WORD 0101111111111110 

.WORD 0101010101010100 

.WORD 0100101010101010 

.WORD 0100011C01100110 

.WORi) 0101111000011110 

.WORD 0100000111111110 



^775?2 
172516 

172344 
172516 

177572 



001174 
177734 

001174 

001174 

005770 
005772 
005764 



;EXPECTED RESULTS IN LMALOW: 

.WORD 0000000000000000 

.WORD 0001111111111110 

.WORD 0001010101010100 

.WORD 0000101010101010 

.WORD 0000011001100110 

.WORD 0001111000011110 

.WORD 0000000111111110 

.RADIX 8 

10$: MOV #100$, R1 

MOV ^7,R2 

BIC 0B1 JO MMRO 

BIC #60,MMR3 

MOV KIPAR2,-(SP) 

MOV L0WEST,KIPAR2 

BIS *60,MMR3 

CLR KIPARO 

BIS #8IT0,MMR0 

CLR SLREGL 

CLR aLREGU 

20$: MOV aO(R1),$TMPO 

CMP 1 6 (R1), LMALOW 

BNE 1$ 

MOV LMAHI.$TMPO 

BIC #1 77700, STMPO 

BEQ 2$ 

1$: MOV LMAL0W-EADRS2 

MOV LMAHIJaDRS2+2 

MOV 16(R1),EADRES 

CLR EADRES+2 



;G0 SET UP PRETEST DATA 

;DATA USED BY PRETST 

;8RANCH OVER TEST PATTERN TABLE 

;SET RADIX TO BINARY REPRESENTATION 
;SELECT MAP REG 2, ALL BITS CLEAR 
••SELECT MAP REG 2, ALL BITS SET EXC 
;SELECT MAP REG 2, EVEN BITS SET 
;SELECT MAP REG 2, ODD BITS SET 
.•SELECT MAP REG 2, PAIRS OF BITS SET 
;SELECT MAP REG 2, 2 SETS OF 4 BITS SET 
;SELECT MAP REG 2, 8 BITS SET 



DPM002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 



; EXPECTED RESULT WITH ALL BITS CLEAR 

;EXPECT£D RESULT WITH ALL BITS 1 EXC 

.-EXPECTED RESULT WITH EVEN BITS SET 

.-EXPECTED RESULT WITH ODD BITS SET 

.'EXPECTED RESULT WITH PAIRS OF BITS SET! 

.•EXPECTED RESULT WITH GRPS OF 4 BITS =1 

.•EXPECTED RESULT WITH 8 BITS SET 

SET RADIX BACK TO OCTAL 

MOVE TABLE ADDRESS TO Rl 

DO 7 PATTERNS 

TURN OFF MEMORY MANAGEMENT 

TURN OFF 22-BIT AND MAP RELOCATION 

SAVE KIPAR2 

PUT PAR VALUE IN PAR2 TO ACCESS LOWEST MAP REGISTER 

TURN ON 22-BIT AND MAP RELOCATION 

CLEAR PARO FOR PAGE ACCESSING THIS Tfc^^T 

TURN ON MEMORY MANAGEMENT 

CLEAR LOWEST USEABLE MAP REGISTER LOW WORD 

CLEAR LOWEST USEABLE MAP REGISTER HIGH WORD 

DO THE MAP REGISTER READ THRU THE MAP ;DPM002 

SEE IF LMA LWR 16 WERE LOADED PROPERLY ;DPM002 

BRANCH TO CALL ERROR IF NOT ;DPM002 

MOVE HI 6 BITS TO $TMPO FOR PREPARATION 

CLEAR ALL BUT LOWER 6 BITS 

BRANCH AROl^D ERROR IF OK 

MOVE LOWER 16 BITS OF RECEIVED DATA TO EADRS2 FOR ERROR 

MOVE UPPER 6 BITS OF RECEIVED DATA TO EADRS2+2 FOR ERROR 

MOVE EXPECTED DATA TO EADRES ;DPM002 

CLEAR THE UPPER LOCATION 
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TEST # 21 - LMA REGISTER PHYSICAL ADDRESS CHECK 



G 8 

79-1 



SEQUENCE 97 



3764 016166 

3765 016172 

3766 016174 
5767 016202 

3768 016206 

3769 016210 

3770 016212 

3771 016214 



011637 172344 
104023 



013737 
012703 
077301 
005721 
07724^ 
012637 



001256 
004000 



172344 



MOV (SP),KIPAR2 

ERROR +23 

172344 MOV L0WEST,KIPAR2 

MOV #4000-R3 

15$: 508 R3,15$ 

2$: TST (R1)+ 

SOB R2,20$ 

3$: MOV (SPH, KIPAR2 



RESTORE K1PAR2 

LMA NOT LOADED PROPERLY 

RESET PAR2 TO PRE-ERROR SETUP 

MOVE 4000 TO WAIT LOOP COUNTER 

WAIT A LITTLE 

INCREMENT TO NEXT TABLE VALUE 

SUBTRACT 1 AND BRANCH IF NOT DONE YET 

RESTORE KIPAR2 FOR GOOD NOW 



;DPM002 
;DPM002 



CKKUAEO 11/24/44 UBI MAP MACRO 
TEST # 22 - LMA FORCE JUMPER BIT TEST 
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SEQUENCE 98 



.S8TTL TEST tf 22 - LMA FORCE JUMPER BIT TEST 

;;***********************************»******* *******1V ************ 

;*TEST 22 LMA FORCE JUMPER BIT TEST 



;* 

• * 



THIS TEST DETERMINES THAT THE FORCE JUMPER BIT OF THE LMA IS ZERO AFTER 
A SYSTEM RESET. 



3779 
3780 
3781 
3782 
3783 
3784 
3785 
3786 



016220 
016220 
016222 
016226 

016234 
016242 
016244 
016252 
016254 
016260 
016264 



000004 
004737 
016266 
000100 
042737 
000005 
032737 
001405 
013701 
042701 
104024 



; ;***********************«:«r***** ******************** ************* 

TST22: 



005166 
016234 

000060 

000100 

177736 
000100 



000022 
172516 
1 77736 



FJ8IT 
20$: 



SCOPE 

JSR 

.WORD 

=100 

BIC 

RESET 

BIT 

BEQ 

MOV 

BIC 

ERROR 



PCPRETST 
TST23,20$,22 

#60,MMR3 

*FJ8IT,LMAHI 

TST23 

LMAHI.RI 

^FJ8IT,R1 

+24 



;G0 SET UP PRETEST DATA 

;DATA USED BY PRETST 

;FORCE JUMPER BIT IS BIT 6 

;TURN OFF 22-8IT AND MAP RELOCATION 

;RESET IHl WORLD, CLEARING THE FJ8IT 

; CHECK THE BIT FOR BEING ZERO 

;;8RANCH TO NEXT TEST IF OK 

;M0VE LMAHI TO R1 FOR ERROR CALL 

; CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 

;LMA FORCE JUMPER BIT NOT ZERO 
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SEQUENCE 99 



3796 



016266 
016266 
016270 
01627A 

3797 016302 

3798 016310 

3799 016316 

3800 016320 

3801 01632A 

3802 016330 

3803 016332 
380A 016340 

3805 016342 

3806 016350 

3807 016352 

3808 016360 

3809 016366 

3810 0163:2 

3811 016400 

3812 016404 

3813 016410 

3814 016412 

3815 016420 

3816 016426 

3817 016430 

3818 016434 

3819 016436 

3820 016440 

3821 016444 

3822 016446 

3823 016450 

3824 016456 

3825 016460 

3826 016462 

3827 016466 



000004 
004737 
016474 
052737 
032737 
001005 
013701 
052701 
104025 
022737 
001004 
022737 
001451 
052737 
012737 
013746 
013737 
012700 
012702 
000407 
062737 
023737 
001415 
004737 
000766 
000403 
004737 
000401 
104027 
Q12777 
001370 
000754 
012637 
042737 



S8TTL TEST # 23 - SETTING LMA FORCE JUMPER BIT TEST 

*TEST 23 SETTING LMA FORCE JUMPER BIT TEST 
* 

* THIS TEST SETS THE FORCE JUMPER BIT AND TESTS ITS FUNCTIONALITY l^ 

* THE JUMPERS ARE NOT IN THEIR DEFAULT STATE. IF NOT ('LOWEST' OR 

* 'HIGEST' DO NOT CONTAIN THE DEFAULT VALUES OF 170000 OR 177400 

* RESPECTIVELY), THIS TEST INSURES THAT THE PREVIOUSLY DISABLED MAP 

* REGISTERS ARE ENABLED WITH THE FJ BIT SET. 



005166 

016302 000023 

000100 177736 

000100 177736 

1 77736 
000100 

170000 001256 

177400 001260 

000060 172516 

016440 001106 

172350 

001262 172350 

117776 

125252 

000200 172350 
001264 172350 

003474 
003474 
001000 162460 



TST23: 



20$: 



1$: 
2$: 



172350 
000060 



172516 



4$: 



5$: 



6$: 

7$: 
8$: 



9$: 



SCOPE 

JSR PCPRETST 

.WORD TST24,20$,23 

BIS /('FJeiTAMAHI 

BIT #FJBIT,LMAHI 

8NE 1$ 

MOV LMAHI,R1 

BIS #FJ6IT,R1 

ERROR ^25 

CMP #170000, LOWEST 

BNE 2$ 

CMP /l^l 77400, HIGEST 

BEQ TST24 

BIS #60,MMR3 

MOV #6$,$LPERR 

MOV KJPAR4,-(SP) 

MOV UeML0W.KIPAR4 

MOV #117776, RO 

MOV #125252, R2 

BR 5$ 

ADD #200,KIPAR4 

CMP UBMHI,KIPAR4 

BEQ 9$ 

JSR PCTSTLOC 

BR 4$ 

BR 7$ 

JSR PCTSTLOC 

BR 8$ 

ERROR ^27 

BIT #BIT9,aSWR 

PNE 6$ 

BR 4$ 

MOV (SP) +,K I PAR4 

BIC #60,MMR3 



GO SET UP PRETEST DATA 

DATA USED BY PRETST 

SET THE BIT 

SEE U IT WAS SET 

BRANCH IF SET 

MOVE LMAHI TO R1 FOR ERROR CALL 

SET THE BIT THAT SHOULD HAVE BEEN SET 

LMA FORCE JUMPER BIT NOT SET 

SEE U MAP REGISTER IS LOWEST 

BRANCH AROUND UPPER LIMIT CHECK U NOT 

SEE IF MAP REGISTER 31 IS HIGHEST 

;BRANCH TO NEXT TEST IF SO 

TURN ON 22-BIT AND MAP RELOCATION 

RESET LOOP ON ERROR TO 6$ 

SAVE PAR4 

MOVE LOWEST PAGE OF MEMORY WINDOW TO PAR4 

THIS WILL BE USED TO SELECT PAR4, ADDRESS 17776 

LOAD CONSTANT TO R2 

BRANCH OVER LOOP SETUr 

MAP TO NEXT REGISTER 

SEE IF HIGHEST HAS BEEN REACHED 

BRANCH TO RESTORE PAR4 AND LEAVE TEST l^ SO 

60 TEST LOCATION FOR WRITEABILITY 

BRANCH BACK FOR ANOTHER TEST IF LOCATION LOADED 

BRANCH AROUND LOOP ON ERROR SETUP 

60 TEST LOCATION FOR WRITEABILITY 

GO TEST FOR LOOP ON ERROR IF OK NOW 

FORCE JUMPER BIT FAILS TO REVERT MAP REGISTER STATUS TO DEF 

SEE IF LOOP ON ERROR IS STILL SET 

BRANCH BACK TO LOOP SECTION IF SO 

BRANCH BACK FOR ANOTHER TEST 

RESTORE KIPAR4 



J 
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TEST # 2A - CLEARING THE FORCE JUMPER BIT 
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SEQUENCE 100 



3833 



.SBTTL TEST # 24 - CLEARING THE FORCE JUMPER BIT 
;*TEST 24 CLEARING THE FORCE JUMPER BIT 



;* 



THIS TEST CLEARS THE FJ BIT AND INSURES THAT IT IS SUCCESSFULLY CLEARED, 



016474 
016474 
016476 
016502 

3834 016510 

3835 016516 

3836 016524 

3837 016526 

3838 016532 

3839 016536 



000004 
004737 
016540 
042737 
032737 
001405 
013701 
042701 
104024 



; ;************* iV***** ********************* ******f ***************** 

TST24: 



005166 
016510 
000100 
000100 

177736 
000100 



000024 
177736 
177736 



SCOPE 

JSR PC.PRETST 

.WORD TST25,20$,24 

20$: BIC #FJBIT,LMAHI 

BIT #FJ8IT.LMAHI 

BEQ TST25 

MOV LMAHT,;<1 

BIC #FJ6iT,R1 

ERROR +24 



;60 SET UP PRETEST DATA 

;DATA USED BY PRETST 

; CLEAR THE BIT 

; CHECK TO SEE THAT IT WAS CLEARED 

;;BRANCH IF CLEARED 

;MOVE LMAHI TO R1 FOR ERROR CALL 

; CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 

;LMA FORCE JUMPER BIT NOT ZERO 



CKKUAEO 11/24/4^ UBI MAP 
TEST # 25 - LMA CONTROL BITS 
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SEQUENCE 101 



3847 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 



016540 
016540 
016542 
016546 
016554 
016560 
016566 
016574 
016602 
016606 
016610 
016616 
016624 
016632 
016640 
016642 
016644 
016646 
016654 
016662 
016664 
016666 
016674 
016676 



000004 
004737 
016702 
013746 
012737 
012737 
012737 
012700 
011001 
013737 
013737 
042737 
023737 
001416 
000410 
011001 
013737 
023737 
001401 
104026 
032777 
001363 
012637 



005166 
016644 
1 72344 
170000 
000001 
000020 
056664 

177736 
001174 
037777 
001174 



177736 
001174 



001000 
172344 



000025 

172344 
177572 
172516 



001174 
001200 
001200 
001200 



001174 
001200 



162242 



.SBTTL TEST ff 25 - LMA CONTROL BITS TEST - DATI 
25 LMA CONTROL BITS TEST - DATI 



;*TEST 

;* 

;* 



THIS TEST 
DATI. 



INSURES THE CONTROL BITS 14 AND 15 LOAD PROPERLV DOING A 



;*****«r***i»f***r****«f ********************** Jlr*H:*^*******<V******** A* 



TST25: 



20$: 



1$: 
2$: 

3$: 



SCOPE 

JSR PCPRETST 

.WORD TST26-20$,25 

MOV KIPAR2,-(SP) 

MOV tf17OO06,KIPAR2 

MOV #1 -MMRO 

MOV *20,«MR3 

MOV #1$+81T14,R0 

MOV (R0),R1 

MOV LMAHI.$TMPO 

MOV $TMP0,$TMP2 

BIC #37777, $TMP2 

CMP $TMP0,$TMP2 

BEQ 3$ 

BR 1$ 

MOV (R0),R1 

MOV LMAHI,$TMP0 

CMP $TMP0,$TMP2 

BEQ 2$ 

ERROR +26 

BIT *aiT9,SSWR 

BNE 20$ 

MOV (SP)+,KIPAR2 



60 SET UP PRETEST DATA 

DATA USED BY PRETST 

SAVE KIPAR2 

LOAD KIPAR2 

TURN ON MEMORY MANAGEMENT 

TURN ON 22-81 T ADDRESSING 

MOVE LOCATION ADDRESS +40000 (TO REF PAR2) TO RO 

DO A DATI 

MOVE LMAHI TO $TMPO FOR PREPARATION OF EXPECTED 

MOVE IT TO $TMP2 ALSO 

CLEAR ALL BUT THE CONTROL BITS 

SEE IF EXPECTED DATA CAME UP 

BRANCH TO FINISH TEST IF ALL CLEAR 

BRANCH OVER LOOP ON ERROR SETUP 

DO A DATI 

MOVE LMAHI TO $TMPO FOR COMPARE 

SEE IF EXPECTED DATA CAME UP 

BRANCH AROUND ERROR IF IT DID 

LMA CONTROL BITS INCORRECT 

SEE IF LOOP ON ERROR IS SET 

BRANCH BACK FOR ANOTHER TRY IF SET 

RESTORE KIPAR2 
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TEST # 26 - LMA CONTROL BITS 
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3874 
3875 
3876 
3877 
3878 
3879 
3880 
3881 
3882 
3883 
388A 
3883 
3866 
3887 
3888 
3889 
3890 
3891 
389c 
3893 



016702 
016702 
016704 
016710 

016716 
0167P2 
016730 
016734 
016736 
016744 
016752 
016760 
016766 
016774 
016776 
017000 
017002 
017010 
017016 
017020 
017022 
017030 
017032 



000004 
004737 
017036 
100000 
013746 
012737 
012700 
010110 
013737 
013737 
052737 
042737 
023737 
001416 
000410 
010110 
013737 
023737 
001401 
104026 
032777 
001363 
012637 



SBTTL TEST # 26 - LMA CONTROL BITS TEST - OATO 

;***************************** K************ ************ A******** 

*TEST 26 LMA CONTROL BITS TEST - DATO 
* 

* THIS TEST INSURES THE CONTROL BITS 14 AND 15 LOAD PROPERLY DOING A 

* DATO. 
* 

******************************************** A ****i^* A ****** it A*^** 

TST26: 



005166 
017000 

172344 
170000 
057020 

177736 
001174 
100000 
040000 
001174 



177736 
001174 



001000 
172344 



000026 
172344 



001174 
001200 
001200 
001174 
001200 



001174 
001200 



162106 



DATO 



20$: 



1$: 
2$: 

3$: 



SCOPE 

JSR 

.WORD 

=100000 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BIS 

BIC 

CMP 

BEQ 

BR 

MOV 

MOV 

CMP 

BEQ 

ERROR 

BIT 

BNE 

MOV 



PCPRETST 
TST27, 20$, 26 

KIPAR2.-(SP) 

/^1 70000 AIPAR2 

#1S+8IT14,R0 

Rl.(RO) 

LMAHI,$TMPO 

$TMP0,$TMP2 

*DAT0,$TMP2 

^BIT14,$TMP0 

$TMP0,$TMP2 

3$ 

1$ 

R1,(R0) 

LMAHI,$TMPO 

$TMP0,$TMP2 

2$ 

+26 

^BIT9,SSUR 

20$ 

(SP)+, KIPAR2 



;60 SET UP PRETEST DATA 
;DATA USED BY PRETST 

SAVE KIPAR2 

LOAD KIPAR2 

MOVE LOCATION ADDRESS +40000 (TO REF PAR2) TO RO 

DO A DATO 

MOVE LMAHI TO $TMPO FOR CONTROL BIT ANALYSIS 

MOVE IT IT $TMP2 ALSO 

SET AND CLEAR THE CONTROL BITS EXPECTED TO BE SET 

AND CLEAR SO $TMP2 WILL CONTAIN THE EXPECTED 

SEE IF BIT 15 IS SET AND 14 IS CLEAR 

BRANCH IF OK 

60 CALL ERROR 

DO A DATO 

MOVE LMA HIGH REGISTER CONTENTS TO $TMPO FOR COMPARE 

SEE IF EXPECTED CAME UP 

BRANCH AROUND ERROR IF IT DID 

LMA CONTROL BITS INCORRECT 

SEE IF LOOP ON ERROR IS SET 

BRANCH BACK FOR ANOTHER TRY IF SET 

RESTORE KIPAR2 
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3900 



3901 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 
3911 
3912 
3913 
391A 
3915 
3916 
3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 



017036 
017036 
017040 
017044 

017052 
017056 
017064 
017070 
017072 
017100 
017106 
017114 
017122 
017124 
017126 
017130 
017136 
017144 
017146 
017150 
017156 
017160 



000004 
004737 
017164 
140000 
013746 
012737 
012700 
110110 
013737 
013737 
052737 
023737 
001416 
000410 

noiio 

013737 
023737 
001401 
104026 
032777 
001363 
012637 



005166 
017126 

172344 
170000 
057146 

177736 
001174 
140000 
001174 



177736 
001174 



001000 
172344 



.SBTTL TEST # 27 - LMA CONTROL BITS TEST - DATOB 
;*TEST 27 LMA CONTROL BITS TEST - DATOB 



;* 
;* 

;* 



THIS TEST INSURES THE CONTROL BITS 14 AND 15 LOAD PROPERLY DOING A 
DATOB. 



TST27: 



000027 
172344 



001174 
001200 
001200 
001200 



001174 
001200 



161760 



DATOB 



20$: 



1$: 
2$: 

3$: 



SCOPE 

JSR 

• WORD 

=140000 

MOV 

MOV 

MOV 

M0V6 

MOV 

MOV 

BIS 

CMP 

BEQ 

BR 

M0V8 

MOV 

CMP 

BEQ 

ERROR 

BIT 

BNE 

MOV 



PCPRETST 
TST30,20$,27 

KIPAR2,-(SP) 

^170006,KIPAR2 

#1$+8IT14,R0 

R1,(R0) 

LMAHI,$TMPO 

$TMP0,$TMP2 

/'DATOB, $TMP2 

$TMP0,$TMP2 

3$ 

1$ 

R1,(R0) 

LMAHI,$TMP0 

$TMP0,$TMP2 

2$ 

+26 

#BIT9,SSWK 

20$ 

(SF)+,KIPAR2 



60 SET UP PRETEST DATA 

DATA USED BY PRETST 

DATOB CONTROL BITS STATUS=:140000 

SAVE KIPAR2 

LOAD KIPAR2 

MOVE LOCATION ADDRESS +40000 (TO REF PAR2) TO RO 

DO A DATOt 

MOVE LMAHI TO $TMPO FOR CONTROL BIT CHECK 

MOVE TO $TMP2 ALSO 

SET THE EXPECTED DATA BITS INTO $TMPO 

SEE IF EXPECTED DATA CAME UP 

BRANCH If OK 

BRANCH TO CALL ERROR 

DO A DaTOB 

MOVE Lfi^ HIGH REGISTER CONTENTS TO $TMP0 FOR COMPARE 

SEE IF EXPECTED DATA CAMPE UP 

BRANCH IF OK 

LMA CONTROL BITS INCORRECT 

3t^. IF LOOP ON ERROR IS SET 

BRANCH BACK FOR ANOTHER TRY IF SET 



RESTORE KIPAR2 

* »NOTE«: 'DATIP* CANNOT BE CHECKED IN THE 11/24 BECAUSE THE LMA IS 

* WRITTEN TWICE WHEN A 'DATIP* IS EXECUTED, DESTROYING THE 

* 'DATIP' STATE THAT WAS WRITTEN FIRST. 



CKKUAEO 11/2A/44 U8I MAP 
MEMORY Or^ UNIBUS TESTS HEADER 

3928 

3929 

3930 

3931 

3932 

3933 

3934 

3935 

3936 

3937 

3938 

3939 

3940 

3941 

3942 

3943 

3944 

3945 

3946 

3947 

3948 

3949 

3950 

3951 

3952 

3953 

3954 

3955 

3956 

3957 

3958 

3959 

3960 



MACRO 111113 11-JAN-82 11j27 



N 
PAGE 86 
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SEQUENCE 104 



-SBTTL MEMORY ON UNIBUS TESTS HEADER 

;**iif************«r*i*fi»f ******************************** ************ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 



THE NEXT TWO TESTS WILL EXECUTE IF A M • IN BIT 5 OF THE SWITCH 
REGISTER IS FOUND SET. IF IT HAS, IT THEN DETERMINES IF THERE IS ANY 
UNIBUS MEMORY - AN ERROR RESULTS IF THERE IS NONE. IF THERE IS MEMORY, 
IT THEN SIZES THE AMOUNT OF MEMORY ON THE UNIBUS, INFORMS THE USER 
HOW MUCH MEMORY 11 FOUND ON THE FIRST PASS. THEN SETS AND CLEARS ALL 
BITS OF ALL LOCATIONS IN THE UNIBUS MEMORY FOUND USING THE 'MARCH' 
ALGORITHM. 

H7098 FOR THE 11/44, M7134 FOR THE 11/24 
JUMPER SETTINGS FOR THE MAP REGISTERS 



V«<«LOWER LIMIT»»>^' 




W12 







Will W10 

6 



W9 



V««UPPER LIMIT»»V 












W8I W7 

( 
I 

I 



W6 



W5 



W4 



W3 



* 
* 

* 

*W3-W7 AND W8-W12 ARt THE BINARY-CODED PAGE NUMBER LIMIT (UPPER OR LOWER). 
*A JUMPER IN CnfiRESPONDS TO A LOGIC *'0": A JUMPER OUT TO A LOGIC *T\ TO 
*SET THE JUMPERS, DETERMINE WICH UNIBUS PAGfc THE MEMORY RESIDES IN (0 TO 31) 
*BY CHECKING WHICH OF THE 5 ADDRu'SS BITS BA17-aA13 ARE ASSERTED. ALL ZEROS 
*IS PAGE 0. 10000 IS PAGE 1, 01000 IS PAGE 2, 11000 IS PAGE 3, ETC. UP TO 
*PAGE 31 (11111). FOR THE MEMORY TO BE DETECTED, IT MUST HE AT OR ABOVE 
*THE LOWER LIMIT JUMPER SETTING AND BELOW THE UPPER LIMIT JUMPER SETTING. 
*THUS TO HAVE UNIBUS MEMORY IN PAGES 5-9, ONE WOULD SET THE LOWER LIMIT TO 
*PAGE 5 (10100) OR W10 AND W12 OUT, AND V&, W9 AND W11 IN, AND THE UPPER LIMIT 
*T0 PAGE 10 (01010) OR W4 AND W6 OUT, AND W3, W5 AND W7 IN. UNIBUS MEMORY 
*MUST BE CONTIGUOUS SINCE NO GAPS ARE PERMITTED. 

;***************4r***************************** *************** Ik** 
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TEST # 30 - MEMORY ON UNIBUS TEST 
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3973 
3974 
3975' 
397() 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 
4002 
4003 
4004 
4005 
4006 
4007 
4008 



017164 
017164 
017166 
0171 72 
017200 
017206 
017214 
017216 
017224 
017232 
017234 
017242 
017244 
017252 
017260 
017266 
017270 
017274 
017300 
017304 
017310 
017316 
017322 
017330 
017334 
017340 
017342 
017346 
017350 
017354 
017360 
01 7364 
017370 
017372 
017374 
01 7376 
017400 
017404 
017406 



000004 








SCOPE 


004737 


005166 






JSR 


017412 


017200 


000030 




.WORD 


042737 


000001 


^17512 


20$: 


BIC 


032777 


000040 


161722 




BIT 


001425 








6EQ 


012737 


021576 


001362 




MOV 


022737 


170000 


001256 


1$: 


CMP 


001020 








BNE 


022737 


177400 


001260 




CMP 


001014 








BNE 


012737 


012744 


001106 




MOV 


112737 


000007 


001100 




MOVE 


112737 


000007 


020146 




Move 


104017 








ERROR 


000137 


021576 




2$: 


JMP 


005037 


001320 




3$: 


CLR 


005037 


001330 






CLR 


005037 


172516 






CLR 


052737 


000020 


172516 




BIS 


005037 


172340 






CLR 


012737 


000200 


172342 




MOV 


013700 


001274 






MOV 


163700 


001272 






SU8 


005200 
010037 








INC 


001316 






MOV 


005046 






4$: 


CLR 


012746 


000200 
001262 






MOV 


013746 






MOV 


Q12746 QQ00Q2 
005737 020150 






MOV 
TST 


001010 








BNE 


010046 






,» 


MOV 


006316 








ASL 


006316 








ASL 


104401 


006125 






TyPE 


104405 








TYPDS 


104401 


006174 






TYPE 


021576 






TST32=$E0P ' 



SBTTL TEST # 30 - MEMORY ON UNIBUS TEST 
*rTEST 30 MEMORY ON UNIBUS TEST 

* THIS TEST FIRST CHECKS TO SEE U THE UNIBUS MEMORY TESTS HAVE BEEN 

* SELECTED. IF NOT, THE EOP 1% EZECUTED. IT THEN CHECKS FOR UNIBUS 

* MEMORY EXISTENCE BY CHECKING THAT THE CONTENTS OF LOWEST OR HIGHEST 

* LOCATIONS IS NOT IN ITS DEFAULT STATE. IF BOTH ARE, AN ERROR IS 

* CALLED m\> THE EOP IS tZECUTED. U EITHER ARE NOT, THE NEXT SECTION 

* IS EXECUTED THAT DETERMINES THE SIZE OF THE UB MEMORY AND TELLS 

* USER OF THE RESULTS ON THE FIRST PASS ONLY. 

;■****** A******* ************************* A**** *************it***iV* 

TST30: 



PC,PRETST 

Tst31,20$,30 

^1 ,MMRO 

^8IT5,SSWR 

2$ 

^EOP^NXTTST 

#170000, LOWEST 

3$ 

*177400,HIGEST 

3$ 

*SIZEJO,$LPERR 

#7,$TSTNM 

#7,$TESTN 

+1? 

$EOP 

ERRCNT 

PCPUER 

MMR3 

*20,^WR3 

KIPARO 

*200,KIPAR1 

U6RHI,R0 

UBRL0W,R0 

RO 

R0,NUMOFK 

-CSP) 

«00i-(SP) 

uaML6w,-(sP) 

«.-(SP) 

SPASS 

TST31 

RO,-(SP) 

(SP) 

{%?) 

,UBMAVA 

,U8MEND 



GO SET UP PRETEST DATA 

DATA USED BY PRETST 

TURN OFF MEMORY MANAGEMENT 

SEE IF THIS TEST HAS BEEN SELECTED 

BRANCH TO JUMP IF TEST NOT SELECTED 

POINT TO ESCAPE VECTOR 

SEC IF LOWEST 15 LOWEST 

GO DO TEST IF IT TSN'T - UNIBUS MEMORY EXISTS 

SEE IF HIGEST IS KIGHEST 

GO DO TEST IF IT I-SN'T - UNIBUS MEMORY EXISTS 

MOVE SIZE JUMPER ROUTINE TO LOOP ON ERROR 

EXECUTING AFTER TEST 7 ON LOOPBACK 

EXECUTING AFTER TEST 7 ON LOOPBACK 

NO UNIBUS MEMORY EXISTS 

JW1P TO END OF PASS 

CLEAR THE ERROR COUNT INDICATOR 

CLEAR THE ERROR REGISTER RECEIVER 

CLEAR MEMORY MANAGEMENT REGISTER MMR3 

TURN ON 22-eiT MAPPING 

MAP PARO TO 0-4K 

MAP ^•'ARI TO 4-8K 

MOVL UBRHI TO RO 

SUBTRACT UGRLOW FROM IT, AND 

ADD LAST BLOCK OF 4K TO LOOP COUNTER 

SAVE RO m NUMOFK 

CLEAR THE MAJOR LOOP INDICATOR ON STACK 

MOVE PAR CHANGE TO STACK 

MOVE STARTING PAR VALUE TO STACK 

MOVE INCREMENT VALUE TO STACK 

SEE IF THIS IS FIRST PASS 

;BRANCH TO NEXT TEST IF NOT 

MOVE LOOP COUNTER TO THE STACK AND 

ROTATE THIS TO THE LEFT 2 PLACES 

TO INDICATE NIWER OF K IN OCTAL 

60 TYPE THE UNI-BUS MEMORY AVAILABLE MESSAGE 

60 TYPE THE uUMBER IN DECIMAL 

TYPE A " k"^" AND <CRLF> 



CKKUAEO n/24/%4 UBI MAP MACRO M1113 11-JAN-82 11:27 PAGE 

TEST # 31 - USING MARCH ALGORITHM, CHECK UB MEMORY 



C 

88 



SEQUENCE 106 



4015 



4016 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
4033 
4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 



017412 
017'*12 
017414 
017420 
017426 
017432 
017436 
017444 
017450 
017456 
017462 
017466 
017470 
017472 
017500 
017502 
017510 
017512 
017516 
017522 
017526 
017530 
017532 
017534 
017536 
017542 
017544 
017546 
017550 
017552 
017556 
017562 
017566 
017570 
017574 
017576 
01 7600 
017604 
017610 
017612 
017614 
017622 
017624 
017630 
017632 
017636 
017642 
017650 
017656 



000004 
004737 
021576 
012704 
012705 
013737 
013700 
052737 
012702 
012703 
010423 
077202 
062737 
077012 
016637 
010100 
012702 
01 2703 
066603 
000401 
010413 
020413 
001403 
010437 
000405 
005113 
020513 
001417 
010537 
011337 
005737 
001010 
010337 
104206 
000404 
005237 
005037 
061603 
077231 
066637 
077045 
005766 
001404 
062706 
000137 
12766 
12766 
013766 



005166 
017530 
125252 
052525 
001262 
001316 
000001 
010000 
140000 



000200 

000002 

010000 
140000 
000006 



001204 



001204 
001206 
001330 

005764 



001110 
001330 



SBTTL TEST # 31 - USING MARCH ALGORITHM, CHECK U8 MEMORY 
*TEST 31 USING MARCH ALGORITHM, CHECK U8 MEMORY 

* THIS TEST LOADS PATTERN 125252 INTO ALL LOCATIONS IN UB MEMORY, THEN 

* USING THE MARCH ALGORITHM, CHECKS THE MEMORY 
* 



TST31 



000031 

172354 
177572 



172354 
172354 



1$: 
2$: 

3$! 



4$: 



20$: 

5$: 



6$: 
7$: 

8$: 

9$: 

10$: 

11$: 



000004 172354 
000006 



? 



000010 
021576 
017776 
177600 
001264 



000006 
000004 
000002 



12$; 



SCOPE 

JSR PCPRETST 

.WORD TST32.20$,31 

MOV A125252,R4 

MOV #52525, R5 

MOV U8ML0W,KIPAR6 

MOV NUMOFK.RO 

BIS ^I.MMRO 

MOV iS'10000.R2 

MOV *140000,R3 

MOV R4,(R3)+ 

SOB R2.3$ 

ADD #260,KIPAR6 

SOB R0,2i 

MOV 2(SP),KIPAR6 

MOV R1.R0 

MOV /)'10000-R2 

MOV *140000,R3 

ADD 6(SP},R3 

BR 5$ 

MOV R4,(R3) 

CMP R4, (R3) 

BEQ 6$ 

MOV RA,$TMP4 

BR 7$ 

COM (R3) 

CMP R5,(R3) 

3EQ 11$ 

MOV R5,$TMP4 

MOV (R3),$TMP5 

TST PCPVER 

BNE 11$ 

MOV R3-E/\DRES 

ERROR +206 

BR 11$ 

INC $ERTTL 

CLR PCPUER 

ADD (SP)-R3 

SOB R2.5i 

ADD 4(SP).KIPAR6 

SOB R0,4$ 

TST 6(5p) 

BEQ 12$ 

ADD #10,SP 

JMP $EqA 

MOV #17776, 6(SP) 

MOV #-200,4(SP) 

MOV U8MHI,2(SP) 



GO SET UP PRETEST DATA 

DATA USED BY PRETST 

MOVE FIRST TEST PATTERN TO R4 

MOVE SECOND TEST PATTERN TO R5 

INITIALIZE PAR6 

REINITIALIZE I OOP COUNTER RO 

TURN ON MEMORY MANAGEMENT 

ACCESS ALL WORDS IN THIS 4K BLOCK 

flRST ADDRESS OF THIS PAGE 

MOVE THE PATTERN TO THE LOCATION 

SUBTRACT 1 AND BRANCH IF 4K NOT DONE 

MAP TO NEXT 4K BLOCK 

SUBTRACT 1 AND BRANCH IF BLOCKS OF 4K NOT DONE 

REINITIALIZE KIPAR6 TO POINT AT BEGINNING 

REINITIALIZE LOOP COUNTER RO 

ACCESS ALL WORDS IN THIS 4K BLOCK 

FIRST ADDRESS OF THIS PAGE 

ADD OFFSET FOR THIS MAJOR PASS 

BRANCH OVER LOOP ON ERROR PREPARATION 

REWRITE 1ST PATTERN TO LOCATION FOR LOOP ON ERROR 

SEE IF IT WAS LOADED PROPERLY 

BRANCH AROUND ERROR CALL IF OK 

MOVE EXPECTED DATA TO $TMP4 

GO COMPLETE DATA FETCHING AND CALL ERROR 

COMPLEMENT THAT LOCATION TO PRODUCE SECOND TEST PATTERN 

SEE IF IT IS THE COMPLEMENT 

BRANCH AROUND ERROR CALL IF IT IS 

MOVE EXPECTED DATA TO $TMP4 

MOVE RECEIVED DATA TO $TMP5 

SEE IF THIS ACCESS TIMED OUT - IF IT DID, BRANCH 

AROUND ERROR CALLS - TIMEOUT ROUTINE LOGGED ERROR 

MOVE ADDRESS IN R3 TO EADRES FOR ERROR CALL 

DATA PATTERN NOT CORRECT 

BRANCH AROUND INCREMENT AND CLEAR INSTRUCTIONS 

STILL COUNT THIS AS AN ERROR 

CLEAR TIMEOUT RECEIVER 

ADD INCREMENT/DECREMENT VALUE TO R3 

SUBTRACT 1 AND BRANCH IF 4K NOT CHECKED 

MAP TO NEXT 4K BLOCK 

BRANCH BACK IF MORE BLOCKS TO CHECK 

TEST TO SEE IF THIS IS SECOND PASS 

BRANCH TO 2ND PASS SETUP IF NOT 

CLEAN iP STACK 

JUMP TO END OF PASS 

MOVE 2K WORDS -2 (ALSO 2ND PASS INDICATOR) TO STACK 

MOVE REVERSE PAR STEP TO STACK 

MOVE LAST PAR VALUE TO STACK 



D 9 

CKKUAEO 11/;>4/A4 UBI MAP MACRO M1113 11-JAN-82 11:27 PAGE 88-1 SEQUENCE W7 

TEST # 31 - USING MARCH ALGORITHM, CHECK UB MEMORY 

A061 017664 012716 177776 MOV *-2,(SP) ;MOVE DECREMENT VALUE TO STACK 

4062 017670 000662 BR 1$ ;BRANCH BACK FOR SECOND PASS 



.J 



CKKUAEO 11/2A/4A UBI MAP MAC 


TEST # 31 - USING MARCH ALGORITHM, 


4063 


020000 


4064 




4065 


Mini 


4066 


1 11111 


4067 






020000 




000024 


000024 


000200 




000044 


000044 


020000 




020000 


020000 




020000 


000000 


020002 


020142 


020004 


000005 


020006 


000010 


020010 


000000 


020012 


000052 



RO M1113 11-JAN-82 11:27 
CHECK Ua MEMORY 

•=20000 



PAGE 



E 

89 



SEQUENCE 108 



;THE APT TABLES NEED TO START AT 20000 - THIS STATEMENT DOES THAT 



ADDWO= Mini 
ADDW1= Mini 
.S8TTL APT PARAMETER BLOCK 

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

;;*f****Tlr******T^JV********************************* **************** 

.$X=. ;;SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 

200 ;;FOR APT START UP 

.=44 ;;POINT TO APT INDIRECT ADDRESS PNTR. 

$APTHDR ;;POINT TO APT HEADER BLOCK 

.=.$X ii^KlSU LOCATION COUNTER 

; ;**************:************************************************* 

; SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 



iAPTHD: 

SHIBTS: 

SMBADR: 

STSTM: 

SPASTM: 

SUNITM: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 





SMAIL 

5 

10 





;TW0 HIGH BITS OF 18 BIT MAILBOX ADDR. 

;ADDRESS OF APT MAILBOX (BITS 0-15) 

;RUN TIM OF LONGEST TEST 

;RUN TIME IN %IZ%. OF 13T PASS ON 1 UNIT (QUICK VERIFY) 

;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 



$ETEND-$HAIL/2 ;;LEN6TH M^AILBOX-ETABLE (WORDS) 



- r 



CKKUAEO 11/2A/A4 UBI MAP 



SUBROUTINE TO TEST TIMEOUT THROUGH UNI8US MAP 
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SEQUENCE 109 



4069 
A070 
A071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4090 
4091 
4092 
4093 
4094 



020014 
020020 
020022 
020026 
020032 
020040 
020046 
020052 
020060 
020062 
020070 
020074 
020102 



020106 
020112 
020120 
020122 
020124 
020132 
020134 
020140 



005737 
001402 
062706 
005037 
013737 
012777 
005077 
032777 
001403 
01 2737 
005037 
012737 
013703 



005037 
022737 
001405 
011646 
012737 
000402 
062716 
000207 



00^312 

000002 
001320 
001256 
000074 
161226 
004000 



.S8TTL SUBROUTINE TO TEST TIMEOUT THROUGH UNIBUS MAP 



MMTOTM: 



172350 
161234 

161056 



177600 172350 
001330 

000020 001326 
100000 



001326 
000020 001330 



000001 004312 
000002 



1$: 



20$: 



TST 
6EQ 
ADD 
CLR 
MOV 
MOV 
CLR 
BIT 
6E0 
MOV 
CLR 
MOV 
MOV 



2$: 



3$: 
4$: 



CLR 

CMP 

6EQ 

MOV 

MOV 

BR 

ADD 

RTS 



L0EFL6 

IS 

»2,SP 

ERRCNT 

LOWEST, KIPAR4 

#74,aLREGU 

aLREGL 

jC6IT11,8SWR 

20$ 

#177600, KIPAR4 

PCPUER 

/lfTIMOUT,CPUEXP 

100000, R3 



CPUEXP 

#TIM0UT, PCPUER 

3$ 

(SP), -(SP) 

*1,L0EFL6 

4$ 

M2ASP) 

PC 



SEE IF THIS ENTRY IS FROM ERROR LOOPING 

BRANCH IF NOT 

CLEAN EXTRA RETURN OFF STACK 

CLEAR ERRCNT FOR THIS TEST 

LOAD PAR 4 WITH LOWEST USABLE MAP REG 

LOAD UPPER 6 BITS OF LOWfcST MAP REG 

LOAD LOWER 16 BITS OF LOWEST MAP REG 

SEE IF AN 11/24 WITH UB MEMORY ONLY 

BRANCH IF NOT 

RESET KIPAR4 SO A TIMEOUT THROUGH MAP CAN BE EXPECTED 

CPU ERROR REGISTER LOCATION 

EXPECTING TIMEOUT IN THIS TEST 

TRY TO READ THROUGH PAGE 4 THIS REFERENCE WILL GO OUT 
;0N THE UNIBUS TO SELECT THE LOWEST USABLE MAP REGISTER (DEFAULT MAP REG. 0). PHYSICAL 
;ADDRESS 17700000 IS THEN GENERATED, WHICH SHOULD TIME OUT SINCE IT IS THE FIRST 
;NON-EXISTENT LOCATION. 

; CLEAR LOCATION - NO MORE TIMEOUTS FOR A WHILE 

;THE UNIBUS SHOULD HAVE TIMED OUT 

;BRANCH IF CONDITION WAS CORRECT 

;PUSH ANOTHER RETURN ONTO THE STACK FOR POSSIBLE ERROR LOOP 

;SET ERROR LOOP FLAG 

;EXIT 

; CORRECT RETURN PC OVER ERROR CALL 

;EXIT 



CKKUAEO 11/2A/44 UBI HAP 


APT MAILBOX-ETABLE 


4095 




020H2 




O20U2 


000000 


020U4 


000000 


0201 A6 


000000 


0201 50 


000000 


020152 


000000 


020154 


000000 


020156 


000000 


020160 


000000 


020162 




020162 


000 


020163 


000 


020164 


000000 


020166 


000000 


020170 


000000 



020172 
020173 



020176 
020177 
020200 
020202 
C'>'*?03 
030204 
020206 
020207 
020210 
020212 
020214 
020216 
020220 
020222 
020224 
020226 
020230 
020232 
020234 
020236 
020240 
020242 
020244 
020246 
020250 



000 
000 



020174 000000 



000 

000 

000000 

000 

000 

000000 

000 

000 

000000 

000000 

000000 

QOOOOO 

000000 

000000 

000000 

M7177 

Mini 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 



MACRO Ml 113 ' 


1-JAN-82 


11:27 


-SBTTL APT MA1L80X-ET 


;;******************** 


.l>ilH 






$MAIL 


1 




$MS6TY: .WORD 


AMS6TY 


SFATAL: .WORD 


AFATAL 


STESTN: .WORD 


ATESTN 


$PASS 


■ .WORD 


APASS 


SDEVCT: .WORD 


ADEVCT 


SUNIT 


.WORD 


AUNJT 


$MS6AD: .WORD 


AMSGAD 


$MS6L6: .WORD 


AMS6L6 


SETABLE: 




$ENV: 


.BYTE 


AENV 


SENVM 


► .BYTE 


AENVM 


SSWREG: .WORD 


ASWRE6 


$USWR 


' .WORD 


AUSWR 


SCPUOP: .WORD 

;* 
;* 
;* 


ACPUOP 


Jhams' 


1: .BYTE 


AMAM31 


SMTYP' 
;* 

;* 


: .BYTE 


AMTYP1 


:* 
;* 
$«ADR' 


: .WORD 


AMADR1 


iwAMs; 


?; .BYTE 


AWyiS2 


SMTYP; 


?: .BYTE 


AMTYP2 


smadr; 


?: .WORD 


Af1ADR2 


$MAMS: 


5: .BYTE 


AMAMS3 


$«TYp; 


5: .BYTE 


AMTYP3 


smadr: 


\x .WORD 


AMADR3 


SMAMS^ 


»: .BYTE 


AMAKS4 


SMTYP^ 


f: .BYTE 


AMTYP4 


$MADR^ 


i: .WORD 


AMADR4 


SVECTl 


: .WORD 


AVECT1 


svect; 


?: .WORD 


AVECT2 


SBASE 


.WORD 


ABASE 


SDEVM 


.WORD 


ADEVM 


$CDU1 


.WORD 


ACDW1 


SCDU2 


.WORD 


ACDW2 


$DDWO 


.WORD 


ADDWO 


$DDW1 


.WORD 


ADDW1 


$DDU2 


.WORD 


ADDW2 


$DDW3 


.WORD 


ADDW3 


$DDU4 


.WORD 


ADDW4 


$DDU5 


.WORD 


ADDW5 


$DDU6 


.WORD 


ADDW6 


$DDW7 


.WORD 


ADDW7 


$DDW8 


.WORD 


ADDW8 


$DDU9 


' .WORD 


ADDW9 



PAGE 



G 

91 



SEQUENCE 110 



APT MAILBOX 

MESSAGE TYPE CODE 

FATAL ERROR NUMBER 

TEST NUMBER 

PASS COUNT 

DEVICE COUNT 

I/O UNIT NUMBER 

MESSAGE ADDRESS 

MESSAGE LENGTH 

APT ENVIRONMENT TABLE 

ENVIRONMENT BYTE 

ENVIRONMENT MODE BITS 

APT SWITCH REGISTER 

USER SWITCHES 
..CPU TYPE, OPTIONS 
BITS 15-11=CPU TYPE 

1 1 /04=:01J 1 /05=02 J 1 /20=03 J 1 /40=04 J 1 /45=05 
11/70=06, PDQ=07,Q^'10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATIN6 POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
;;HIGH ADDRESS,M.S. BYTE 
;;MEM. TYPE,BLK#1 
MEM. TYPE BYTE — (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIP0LAR=002 
500 NSEC M0S=003 

HIGH ADDRESS,BLK#1 

MEM. LAST ADDR.=3 BYTES, THIS WORD AND LOW OF 'TYPE" ABOVE 

HIGH ADDRESS,M.S. BYTE 

MEM. TYPE ,BLK4f2 

MEM.LAST ADDRESS, BLK/(r2 

HIGH ADDRESS,M.S.BYTE 

MEM. TYPE, BLK#3 

MEM.LAST ADDRESS,BLK#3 

HIGH ADDRESS,M.S.BYTE 

MEM. TYPE, BLK#4 

MEM.LAST ADDRESS, BLK#4 

INTERRUPT V£CT0R#1,BUS PRIORI TY;!f1 

INTERRUPT VECT0R#2BUS PRIORI TY*2 

BASE ADDRESS OF EQUIPMENT UNDER TEST 

DEVICE MAP 

CONTROLLER DESCRIPTION W0RD#1 

CONTROLLER DESCRIPTION W0RD#2 

DEVICE DESCRIPTOR WORD#0 

DEVICE DESCRIPTOR W0RD#1 

DEVICE DESCRIPTOR W0RD#2 

DEVKE DESCRIPTOR W0RD#3 

DEVICE DESCRIPTOR W0RD#4 

DEVICE DESCRIPTOR W0RD#5 

DEVICE DESCRIPTOR W0RD#6 

DEVICE DESCRIPTOR W0RD#7 

DEVICE DESCRIPTOR WORD/TS 

DEVICE DESCRIPTOR W0RD#9 



CKKUAEO 11/24/44 UBI MAP 


APT 


HAILBOX-ETABLE 




020252 


000000 




020254 


000000 




020256 


000000 




020260 


000000 




020262 


000000 




020264 


000000 




020266 
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SEQUENCE 111 



SDDWIO 
SDDWn 
$DDU12 
$DDW13 
$DDW14 
$DDW15 
SETEND 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



ADDWIO 
ADDW11 
ADDW12 
ADDW13 
ADOWK 
ADDW15 



;DEV1CE 
;DEVJCE 
;DEVICE 
;DEVICE 
;DEVJCE 
;DEVICE 



DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 



WORD/^10 
WORD^I 1 
W0RD#12 
W0RD#13 
U0RD#14 
UORDyyiS 



CKKUAEO 11/2A/A4 UBI MAP 
SCOPE HANDLER ROUTINE 

A097 



I 9 
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.SeiTL SCOPE HANDLER ROUTINE 

*THIS ROUTINE CONTROLS THE LOOPING OF SIBTESTS. IT WILL INCREMENT 

*AND LOAD THE TEST NUMBER ($TSTN«) INTO THE DISPLAY REG, (DISPLAy<7:0» 

*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

*SW14=1 LOOP ON TEST 

*SW11=1 INHIBIT ITERATIONS 

*SW09=1 LOOP ON ERROR 

*SWQ8=1 LOOP ON TEST IN SWR<4:0> 

*CALL 

* SCOPE ;;SCOPE=IOT 



SEQUENCE 112 



02026C 








SSCOPE: 




02026-^ 


005037 


001360 






CLR 


020272 


005037 


001320 






CLR 


020276 


005037 


001246 






CLR 


020302 


005037 


001236 






CLR 


020306 


005037 


001240 






CLR 


020312 


005037 


001254 






CLR 


020316 


012737 


M7777 


001242 




MOV 


020324 


012737 


\77777 


001232 




MOV 


020332 


012737 


000077 


001234 




MOV 


020340 


012737 


^77777 


001252 




MOV 


020346 


012737 


000077 


005766 




MOV 


020354 


012737 


000077 


005772 




MOV 


020362 


032777 


040000 


160546 


1$: 


BIT 


020370 


001134 








BNE 










ift/fMMMSTART 


020372 


000416 






$XTSTR: 


BR 


020374 


013746 


000004 






MOV 


020400 


012737 


020420 


000004 




MOV 


020406 


005737 


177060 






TST 


020412 


012637 


000004 






MOV 


020416 


000503 








BR 


020420 


022626 






5$: 


CMP 


020422 


01 2637 


000004 






MOV 


020426 


000443 








BR 


020430 








6%i :MMmiNl> 


020430 


032777 


000400 


160500 




BIT 


020436 


001407 








6EQ 


020440 


017746 


160472 






MOV 


020444 


042716 


000340 






BIC 


020450 


122637 


001100 






CMP8 


020454 


001502 








6EQ 


020456 


013737 


\777iit 


020700 


2$: 


MOV 


020464 


032737 


000001 


020700 




BIT 


020472 


001406 








6EQ 


020474 


042737 


000001 


177766 




BIC 


020502 


104177 








EMT 


020504 


105037 


001101 






CLR8 


Oi:C510 


105737 


001101 




2000$: 


TST8 


0205K 


001421 








BEQ 


020516 


123737 


001113 


001101 




CMP8 


020524 


107015 








6HI 



RETRY 
ERRCNT 
DATAOR 
ADDROR 
ADDROR+2 
PATTOR 
*-1,DATAND 
*-1 ,ADRAND 
#77,ADRAWD+2 
#-1 ,PATA^D 
*77, EADRES+2 
/S'77, EADRS2+2 

/raiTi4,aswR 

$OVER 
OF CODE FOR THE XOR 
6$ 

cWERRVEC.-(SP) 
#5$,WERRVEC 
S#1?7060 
(SP)+, a#ERRVEC 
SSVLAD 
(SP)+,(SP)+ 
(SP)+, a#ERRVEC 
7$ 
OF CODE FOR THE XOR 
#BIT08,aSWR 
2$ 

aSWR.-(SP) 
nSWRMK,(SP) 
(SP)+, STSTNM 
$OVER 

1 77766, CPSAVE 
*8IT00,CPSAVE 
2000$ 

#81 TOO J 77766 
+177 
$ERFLG 
$ERFL6 
3$ 
$ERMAX,$ERFLG 

j9 



CLEAR RETRY FLAG AN THE START OF EACH TEST 
CLEAR THE MULTIPLE ERROR COUNTER 
LOCATION FOR LOGICAL OR OF BAD DATA 
LOCATION FOR LOGICAL OR OF ADDRESS 
LOCATION FOR UPPFR 6 BITS OF LOGICAL OR OF ADDRESS 
LOCATION FOR LOGICAL OR OF PATTERN LOADED 
LOCATION FOR LOGICAL AND OF BAD DATA 
LOCATION FOR LOGICAL AND OF ADDRESS 
LOCATION FOR UPPER 6 BITS OF LOGICAL AND OF ADDRESS 
LOCATION FOR LOGICAL AND OF PATTERN LOADED 
RESTORE UPPER 6 BIT LOCATION OF EADRES+2 
RESTORE UPPER 6 BIT LOCATION OF EADRS2+2 
;LOOP ON PRESEm TEST? 
;YES IF SW14=1 
TESTERkMftMM 
:lf RUNNING ON THE "XOR" TESTER CHANGE 
;THIS INSTRUCTION TO A '>JOP" (NOP=240) 
;SAVE THE CONTENTS OF THE ERROR VECTOR 
;SET FOR TIMEOUT 
;TIME OUT ON XOR? 
;RESTORE THE ERROR VECTOR 
;G0 TO THE NEXT TEST 
; CLEAR THE STACK AFTER A TIME OUT 
;RESTORE THE ERROR VECTOR 
;LOOP ON THE PRESENT TEST 
lESTEMMMMM 
;LOOP ON SPEC. TEST? 
;8R IF NO 

;SET DESIRED TEST NUM. FROM SWR 
; STRIP AWAY UNDESIRED BITS 
;0N THE RIGHT TEST? 
:8R IF YES 

MOVE CPU ERR REG VALUE TO LOC FOR TST ;DPM001 
SEE IF THE POWER MONITOR BIT IS ON ;DPM001 
BRANCH TO CONTINUE ROUTINE IF CLEAR ;DPM001 
CLEAR THE BIT FOUND TO BE SET ;DPM001 
CALL SPECIAL POWER FAIL BIT ERROR CALL ;DPM001 
CLEAR THE ERROR FLAG ;DPM001 

HAS AN ERROR OCCURRED? 

BR IF NO 

MAX. ERRORS FOR THIS TEST OCCURRED? 

BR IF NO 
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020526 
020534 
02C536 
020544 
020546 
020552 
020556 
020560 
020566 
020570 
020574 
020576 
020602 
020610 
020612 
020620 
020626 
020632 
020640 
020644 
020650 
020654 
020662 
020670 
020674 
020076 
020700 



032777 
001404 
013737 
000446 
105037 
005037 
000415 
032777 
001011 
005737 
001406 
005237 
023737 
002024 
012737 
013737 
105237 
113737 
011637 
011637 
005037 
112737 
013777 
013716 
000002 
000002 
000000 



001000 

001106 

001101 
001212 

004000 

020150 

001102 
001212 

000001 
020676 
001100 
001100 
001104 
001106 
001214 
000001 
001100 
001104 



160402 
001104 



7$: 

4$: 



160350 3$: 



001102 

001102 
001212 

020146 



001113 
160250 



1$: 

SSVLAD: 



SOVER: 



SMXCNT; 
CPSAVE: 



BIT /'8IT09,aSWR 

BEO 4$ 

MOV $LPERR,$LPADR 

BR $OVER 

CLR8 $ERFL6 

CLR STIMES 

BR 1$ 

BIT #8ITinaSWR 

BNE IS 

TST $PASS 

BEO 1$ 

INC SICNT 

CMP STIMES.SICNT 

B6E SOVER 

MOV /yi,$ICNT 

MOV $MXCNT,$TIMES 

1NC8 ITSTNM 

M0V8 $TSTNM,$TESTN 

MOV (SP),$LPADR 

MOV (SP),$LPERR 

CLR SESCAPE 

M0V6 #1,$ERMAX 

MOV $TSTNM,aDISPLAY 

MOV $LPAOR,{SP) 

RTI 

2. 

.WORD 



LOOP ON ERROR? 

BR IF NO 

SET LOOP ADDRESS TO LAST SCOPE 

ZERO THE ERROR FLAG 

CLEAR THE NUMBER OF ITERATIONS TO MAKE 
ESCAPE TO THE NEXT TEST 
INHIBIT ITERATIONS? 
BR IF yES 

IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
INCREMENT ITERATION COUNT 
CHECK THE NUMBER OF ITERATIONS MADE 
BR IF MORE ITERATION REQUIRED 
REINITIALIZE THE ITERATION COUNTER 
SET NUMBER OF ITERATIONS TO DO 
COUNT TEST NUMBERS 
SET TEST NUMBER IN APT MAILBOX 
SAVE SCOPE LOOP ADDRESS 
SAVE ERROR LOOP ADDRESS 
CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW ONE(I) ERROR ON NEXT TEST 
DISPLAY TEST NUMBER 
FUDGE RETURN ADDRESS 
FIXES PS 

MAX. NUMBER OF ITERATIONS 
LOCATION TO SAVE CPU ERR REG CONTENTS ;DPM001 
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020702 


000000 






IBS AVE: 


.WORD 





020704 


105037 


020702 




SERROR: 


CLRB 


IBSAVE 


020710 


113737 


001100 


020146 




MOVB 


$TSTN«,$TESTN 


020716 


005237 


001320 






INC 


ERRCNT 


020722 


010037 


001160 






MOV 


R0,$REG0 


020726 


010137 


001162 






MOV 


R1,$REG1 


020732 


010237 


001164 






MOV 


R2,$REG2 


020736 


010337 


001166 






MOV 


R3,$RE63 


020742 


010437 


001170 






MOV 


R4,$REG4 


020746 


010537 


001172 






MOV 


r<5,$REG5 


020752 


105237 


001101 




7$: 


INCB 


$ERFL6 


020756 


001775 








BEQ 


7$ 


020760 


013777 


001100 


160152 




MOV 


$TSTNM,aDISPLAY 


020766 


032777 


002000 


160142 




BIT 


*BIT10,SSWR 


020774 


001402 








6E0 


1$ 


020776 


104401 


001216 






TYPE 


-$BELL 


021002 


005237 


001110 




1$: 


INC 


$ERTTL 


021006 


011637 


001114 






MOV 


(SP), $ERRPC 


021012 


162737 


000002 


001114 




SUB 


;r2,$ERRPC 


021020 


117737 


160070 


001112 




MOVB 


3$ERRPC,$ITEMB 


021026 


^227Z7 


000177 


001112 




CMP8 


J»177.$ITEMB 


021034 


001426 








BEQ 


2001$ 


021036 


105737 


020702 






TSTB 


IBSAVE 


021042 


001021 








BNE 


2000$ 


021044 


013737 


177766 


020700 




MOV 


177766, CPSAVE 


021052 


032737 


000001 


020700 




BIT 


/raiTOO.CPSAVE 


021060 


001414 








BEQ 


2001$ 


021062 


042737 


000001 


177766 




BIC 


#BI TOO J 77766 


021070 


113737 


001112 


020702 




MOVB 


$ITEM6JBSAVE 


021076 


112737 


000177 


001112 




MOVB 


»Ml.%lMm 


021104 


000402 








BR 


200li 


021106 


105037 


020702 




2000$: 


CLRB 


IBSAVE 


021112 








2001$: 






021112 


032777 


020000 


160016 




BIT 


#BIT13«aSWR 


021120 


001004 








BNE 


20$ 


021122 


004737 


002026 






JSR 


PCERTYPE 


021126 


104401 


001223 






TYPE 


,$CRLF 


021132 








20$: 






021132 


M2111 


000001 


020162 




CMPB 


^APTENV,$ENV 


021140 


001007 








BNE 


2$ 


021142 


113737 


001112 


021154 




MOVB 


$ITEMB,21$ 


021150 


004737 


021346 






JSR 


PC*$ATY4 


021154 


000 






21$: 


.BYTE 






.SBTTL ERROR HANDLER ROUTINE 

;****•*********************************************************»* 

*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 

*SAVE THE ERROR ITEM NUMBER AND THE k\>mE%% OF THE ERROH CALL 

*AND GO TO ERTYPE ON ERROR 

*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

*SW15=1 HALT ON ERROR 

*SW13=1 INHIBIT ERROR TYPEOUTG 

*SW10=1 BELL ON ERROR 

*SW09=1 LOOP ON ERROR 

*CALL 

* ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 

LOC'N TO HOLD $ITEMB DURING DUAL ERR 

CLEAR THE ITEM BYTE SAVE LOCATION 

SAVE TEST NUMBER FOR ERROR TYPE OUT 

COUNT ALL MULTIPLE ERRORS 

SAVE RO FOR POSSIBLE TYPE OUT 

SAVE R1 FOR POSSIBLE TYPE OUT 

SAVE R2 FOR POSSIBLE TYPE OUT 

SAVE R3 FOR POSSIBLE TYPE OUT 

SAVE R4 FOR POSSIBLE TYPE OUT 

SAVE R5 FOR POSSIBLE TYPE OUT 

;SET THE ERROR FLAG 

; DON'T LET THE FLAG GO TO ZERO 

; DISPLAY TEST NUMBER AND ERROR FLAG 

;BELL ON ERROR? 

;N0 - SKIP 

;RING BELL 

; COUNT THE NUMBER OF ERRORS 

;6ET ADDRESS OF ERROR INSTRUCTION 

; STRIP AND SAVE THE ERROR ITEM CODE 

SEE IF THIS IS THE POWER FAIL CALL 

BRANCH AROUND ROUTINE IF IT IS 

SEE IF THIS IS THE 2ND ERROR CALL 

BRANCH IF SO 

MOVE CPU ERR REG TO CPSAVE FOR TEST 

SEE IF POWER MONITOR BIT IS SET 

BRANCH IF OK 

CLEAR THE BIT FOUND SET 

MAKE IBSAVE NON-ZERO FOR DUAL CALL 

SET $ITEM6 TO SPECIAL POWER rAIL PNTR 

BRANCH OVER IBSAVE CLEARING 

CLEAR IBSAVE SO AFTER 2ND ERROR, EXIT 

;SKIP TYPEOUT IF SET 

;SKIP TYPEOUTS 

;G0 TO USER ERROR ROUTINE 



.'RUNNING IN APT MODE 
;NO,SKIP APT ERROR REPORT 
;SET ITEM NUMBER AS ERROR NUMBER 
;REPORT FATAL ERROR TO APT 



;DPM001 
;DPM001 



DPM001 
DPM001 
DPM001 
DPM001 
DPM001 
DPM001 
DPM001 
DPM001 
DPM001 
DPM001 
DPMOOl 
DPM001 
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021155 
021156 
021160 
021164 
021166 
021172 
021174 
021176 
021204 
021206 
021212 
021214 
021220 
021224 
021226 
021232 
021234 
021240 
021240 
021246 
021250 
021252 
021252 
021256 
021260 
021266 
021270 
021276 
021304 
021312 
021320 
021326 



000 
000777 
105737 
001004 
005777 
100001 
000000 
032777 
001405 
105737 
001257 
013716 
005737 
001405 
105737 
001247 
013710 

022737 
001001 
000000 

105737 
001235 
032777 
001417 
012737 
042737 
012737 
012737 
012737 
000002 



020702 
157744 

001000 

020702 

001106 
001214 

020702 

CCi214 

022024 

020702 

001000 

M7111 
\7int 
Mini 

Mini 
Mini 



22$: 
2$: 



157732 3$: 



4$: 



000042 



5$: 



6$: 



157650 

177766 
177572 
003032 
003224 
003374 



1000$ 



,8YTE 

BR 

TST8 

BNE 

TST 

BPL 

HALT 

BIT 

BEO 

TSTB 

BNE 

MOV 

TST 

BEG 

TSTB 

BNE 

MOV 

CMP 
BNE 
HALT 

TSTB 

BNE 

BIT 

BEO 

MOV 

BIC 

MOV 

MOV 

MOV 

RTI 





22% 

IBSAn 

3$ 

aSWR 

3$ 

#BIT09,aSWR 

4$ 

leSAVE 

7$ 

$LPERR,(SP) 

SESCAPE 

5$ 

IBSAVE 

7$ 

$ESCAPE,(SP) 

/i'$ENDAD,a#42 
6$ 



IBSAVE 

7$ 

^SW9.aSWR 

1000$ 

#-1,CPUERR 

/f1 77776, MMRO 

#-1,T0FLAG 

#"1,CPFLAG 



;APT ERROR LOOP 

SEE IF POWER FAIL ERROR CALL 

BRANCH IF NOT - HALT NOT ALLOWED 

;HALT ON ERROR 

;SKJP IF CONTINUE 

;HALT ON ERROR! 

;LOOP ON ERROR SWITCH SET? 

;8R If NO 

SEE IF THIS IS THE PWR MNTR BIT 

BRANCH BACK IF SO - FUDGING NOT 

; FUDGE RETURN FOR LOOPING 

; CHECK FOR AN ESCAPE ADDRESS 

;8R IF NONE 

SEE IF THIS IS THE PWR MNTR BIT 

BRANCH BACK IF SO - FUDGING NOT 

; FUDGE RETURN ADDRESS FOR ESCAPE 



DPM001 
DPM001 



ER^OR ; 
ALLOWED; 



ERROR ; 
ALLOWED; 



rPMOO! 



DPM001 
DPMOOl 



;;ACT-11 
;; BRANCH 
;;YES 



AUTO-ACCEPT? 
If NO 



THE PWR FAIL ERROR CALL ; DPMOOl 
CALL ORIGINAL ERR IF SO ;DPM001 
ON THIS ERROR? 



SEE IF THIS IS 

BRANCH BACK TO 

ARE WE LOOPING 

BRANCH IF NOT 

CLEAR CPU ERROR REGISTER 

CLEAH nir.09y MANAGEMENT STATUS REGISTER 

INITIALIZE TRAP FLAG 

INITIALIZE CP TRAP FLAG 

INITIALIZE MEMORY MANAGEMENT TRAP FLAG 

RETURN TO TEST 
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APT COMMUNICATIONS ROUTINE 














4101 








.SBTTL 


APT COMMUNICATIONS ROUTINE 












•;*************************************»**♦**************♦******* 




021330 


112737 


000001 


021574 


IaTYI : 


MOVB 


J!f1,$FFLG 


;T0 REPORT FATAL ERROR 




021336 


112737 


000001 


021572 


$ATY3: 


M0V8 


#1,$MFL6 


;T0 TYPE A MESSAGE 




021344 


000403 








BR 


SATYC 






021346 


112737 


000001 


021574 


$ATY4: 


H0V8 


#1,$FFLG 


;T0 ONLY REPORT FATAL ERROR 




021354 








$ATYC: 










021354 


010046 








MOV 


RO, -(SP) ; 


;PUSH RO ON STACK 




021356 


010146 








MOV 


R1. -(SP) 


;PUSH R1 ON STACK 




021360 


105737 


021572 






TST8 


$WFL6 


;SHOULD TYPE A MESSAGE? 




021364 


001450 








BEO 


5S 


:1F NOT: BR 




021366 


122737 


000001 


020162 




CMP8 


#APTENV,$ENV 


.'OPERATING UNDER APT? 




021374 


001031 








BNE 


3$ 


;IF NOT: BR 




021376 


132737 


000100 


020163 




BIT8 


^APTSPOOL.SENVM ; 


; SHOULD SPOOL MESSAGES? 




021404 


001425 








BEO 


3$ 


;IF NOT: BR 




021406 


017600 


000004 






MOV 


a4(SP),R0 


;6ET MESSAGE ADDR. 




021412 


062766 


000002 


000004 




ADD 


*2,4(SP) 


;;BU«P RETURN ADDR. 




021420 


005737 


020142 




1$: 


TST 


SMSGTYPE 


;SEE IF DONE W/ LAST XMISSION? 




021424 


001375 








BNE 


1$ ; 


;lf NOT: WAIT 




021426 


010037 


020156 






MOV 


R0,$MS6AD 


;PUT ADDR IN MAILOOX 




021432 


105720 






2$: 


TST8 


(R0) + 


;FIND END OF MESSAGE 




021434 


001376 








BNE 


2$ 






021436 


163700 


020156 






SUB 


$MS6AD,R0 


;SU8 START OF MESSAGE 




021442 


006200 








ASR 


RO 


;6ET MESSAGE LNGTH IN WORDS 




021444 


010037 


020160 






MOV 


RO,$MSGLGT 


;PUT LENGTH IN MAILBOX 




021450 


012737 


000004 


020142 




MOV 


/*'4,$MSGTYPE 


;TELL APT TO TAKE MSG. 




021456 


000413 








BR 


5$ 






021460 


017637 


000004 


021504 


3$: 


MOV 


a4(SP),4$ 


;PUT MSG ADDR IN JSR LINKAGE 




021466 


062766 


000002 


000004 




ADD 


02A(SP) 


;;6UMP RETURN ADDRESS 




021474 


013746 


177776 






MOV 


177776. -(SP) ; 


;PUSH 177776 ON STACK 




021500 


004737 


022200 






JSR 


PC,$TYPE 


;CALL TYPE MACRO 




021504 


000000 






4$: 


.WORD 









021506 








5$: 










021 S06 


105737 


021574 




10$: 


TST8 


$FFL6 


; SHOULD REPORT FATAL ERROR? 




021512 


001416 








6EQ 


12$ 


:lf' NOT: BR 




0215U 


005737 


020162 






TST 


$ENV 


;RUNNING UNDER APT? 




021520 


001413 








BEQ 


12$ 


;IF NOT: BR 




021522 


005737 


020142 




11$: 


TiT 


$MSGTYPE 


.•FINISHED LAST MESSAGE? 




021526 


001375 








BNE 


11$ 


:lf NOT; WAIT 




021530 


017637 


000004 


020144 




MOV 


a4(SP),$FATAL ; 


;6ET ERROR » 




021536 


062766 


000002 


000004 




ADD 


#2.4(SP) 


;-BlWP RETURN ADDR. 




021544 


005237 


020142 






INC 


$MSGTYPE 


;TELL APT TO TAKE ERROR 




021550 


105037 


021574 




12$: 


CLRB 


$FFLG 


; CLEAR FATAL FLAG 




021554 


105037 


021573 






CLR8 


$LFLG 


.'CLEAR LOG FLAG 




021560 


105037 


021572 






CLRB 


$MFLG 


; CLEAR MESSAGE FLAG 




021564 


012601 








MOV 


(SP)+,R1 


;POP STACK INTO R1 




021566 


012600 








MOV 


(SP)+, RO 


;POP STACK INTO RO 




021570 


000207 








RTS 


PC 


; RE TURN 




021572 


000 






$MFL6: 


.BYTE 





;MESS6. FLAG 




021573 


000 






$LFL6: 


.BYTE 





;LOG FLAG 




021574 


000 

000200 
000001 






SFFLG: 

APTSIZE 
APTENV= 


.BYTE 
.FVEN 

=200 

001 





; FATAL FLAG 






000100 






APTSP00L=100 










000040 






APTCSUP=040 
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021576 
021576 
021600 
02160-; 
021610 
021612 
021616 
021622 
021626 
021634 
021636 
021640 
021642 
021644 
021646 
021650 
021654 

021674 
021674 

021700 
021702 
021706 
021710 
021714 

021760 
021760 

021764 
021766 
021772 
021776 
022002 
022004 
022006 
022012 

022014 
022014 




000004 
00i)037 
005037 
104414 
005037 
005037 
005237 
042737 
005327 
000001 
003075 
012737 
000001 
021636 
104401 
OOC .07 



104405 
005737 
001427 
r'.401 
0004i^1 



104405 
104401 
005037 
013700 
001414 
005046 
012746 
000426 



013700 
001405 
550Q05 
004710 
000240 
000240 



.SBTTL END OF PASS ROUTINE 

;****************•********************************************** 

^INCREMENT THE PASS NUMBER ($PASS) 

♦INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

*TYPE "END PASS ffXXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY" 

*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 

*IF SW12=1 INHIBIT TRACE TRAP 

^If THERES A MONITOR GO TO IT 

*IF THERE ISN'T JUMP TO LOOP 



$EOP: 



177572 
172516 

001100 
001212 
020150 
100000 



020150 



021656 



013746 020150 



$EOPCT: 



$ENDCT: 



;;65$: 
64$: 



001110 
021716 



013746 001110 



001223 
001110 
000042 



022014 
000042 



; ;67$; 
66$: 



1000$: 
$GET42: 



$CLR.T; 



$ENDAD: 



SCOPE 

CLR 

CLR 

T8ITR 

CLR 

CLR 

INC 

BiC 

DEC 

.WORD 

BGT 

MOV 

.WORD 

$EOPCT 

TYPE 

BR 

.ASCIZ 

MOV 

TYPDS 

TST 

BEQ 

TYPE 

BR 

.ASCIZ 

MOV 

TYPDS 

TYPE 

CLR 

MOV 

BEQ 

CLR 

MOV 

BR 



MOV 
BEQ 
RESET 
JSR 

NO*-' 
NOP 



MMRO 
MMR3 

$TSTNM 

$TIMES 

$PASS 

Jfl'l 00000, $PASS 

(PC)-i^ 

1 

$D^'*PN 

(PlJ.,al(DC) + 

1 

,65$ 

64$ 

<1?>^15>/END 

$PASS,-<SP) 



$tRTTL 
1000$ 
,67$ 
66$ 



LOOP ON LAST TEST 

TURN OFF FULL RELOCATION 

DISABLE THE UNIBUS MAP 

RESTORE THE T BIT IF IT WAS ON 

;ZERO THE TEST NW^ER 

;ZERO THE NUMBER OF ITERATIONS 

.■INCREMENT THE PASS NUMBER 

; DON'T ALLOW A NEC. NUMBER 

;LOOP? 

•YES 

/RESTORE COUNTER 



;;TYPE ASCIZ STRING 
;;6ET OVER THE ASCIZ 
PASS M/ 



SAVE $PASS FOR TYPEOUT 

TYPE PASS NUMBER 

60 TYPE— DECIMAL ASCII WITH SIGN 
SEE IF THERE ARE ANY ERRORS TO REPORT 
BRANCH AROUNT MESSAGE PRINT IF NOT 
;TYPE ASCI7 STRING 
;GET OVER THE ASCIZ 



.-DPMCOl 
;DPM001 



/ TOTAL ERRORS SINCE LAST REPORT / 



$ERTfL,-(SP) 



.$CRLF 

iERTTL 

cMr42,R0 

$DC-AGN 

-iSP) 

#$CLR,T,-(SP) 

$RrRN 



a«42.R0 
$DOAGN 



PC,(RO) 



SAVE $ERTTL FOR TYPEOUT 

TOTAL NUMBER OF ERRORS 

60 TYPE— DECIMAL ASCII WITH SIGN 

TYPE CARRIAGE RETURN, LINE FEED 

CLEAR ERROR TOTAL 

GET MONITOR ADDRESS 

BRANCH IF NO MONITOR 

INSURE THE ''T" BIT IS CLEAR 

SETUP FOR AN RTI OR RTT 

GO DO AN RTI OR RTT TO LOAD TIE PSW 

WITH A CLEARED '7" BIT 

INSURE RO CONTAINS THE MONITORS 

RETURN ADDRESS 

CLEAR THE WORLD 

60 TO MONITOR 

SAVE ROOM 

FOR 



CKKUAEO ^^/2U/t^t^ UBl MAP 


END OF PASS ROUTINE 




022032 


000240 




022034 






022034 


104400 




022036 


042716 


000020 


0220A2 


032777 


010000 


022050 


00100!) 




022052 


005137 


022076 


022056 


100402 




022060 


052716 


000020 


022064 


012746 


022072 


022070 


000002 




022072 






022072 


000137 




02207A 


010606 




022076 


000000 




022100 


377 


377 
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SDOAGN: 



157066 



000 



1$: 
$RTRN: 



SLOOP: 

$RTNAD: 

STBIT: 

$ENULL: 



NOP 

TRAP 

BIG 

BIT 

BNE 

COM 

BMI 

BIS 

MOV 

RTi 



JMP 

.WORD 

.WORD 

.BYTE 

.EVEN 



/SfBITIS^asWR 

1$ 

$T8IT 

1$ 

#20, (SP) 

/^$LOOP,-<SP) 



S{PC)+ 
LOOP 

-1,-1,0 



;;ACT11 

;;PUSH OLD PSW AND PC ON STACK 

;; CLEAR THE "T" BIT 

;;RUN WITH TRACE TRAP? 

;;8R U NO 

;;IS IT TIME FOR TR/ ?E TRAP 

;;BR IF NO 

;;SET TRACE TRAP 

;;JUMP TO START OF TEST 

;;RETURN— THIS IS CHANGED TO 

;;AN "RTT" U **RTr' IS A LEGAL 

;; INSTRUCTION 

;; RE TURN 

;;"T** BIT STATE INDICATOR 
;;NULL CHARACTER STRING 



CKKUAEO 11/2A/AA UBI MAP 

SAVE AND RESTORE R0-R5 ROUTINES 

4105 
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0221 OA 
022104 
022106 
022110 
022112 
0221 U 
022116 
022120 
022124 
022130 
022134 
022140 



022142 
022142 
022146 
022152 
022156 
022162 
022164 
022166 
022170 
022172 
022174 
022176 



010046 
010146 
010246 
010346 
010446 
010546 
016646 
016646 
016646 
016646 
000002 



012666 
012666 
012666 
012666 
012605 
012604 
012603 
012602 
012601 
012600 
000002 



000022 
000022 
000022 
000022 



000022 
000022 
000022 
000022 



,S8TTL SAVE AND RESTORE R0-R5 ROUTINES 

*SAVE R0-R5 
*CALL: 

* SAVRE6 

*UPON RETURN FROM $SAVRE6 THE STACK WILL LOOK LIKE: 

*TOP — (+16) 

* +2 — (+18) 

* +4 — R5 

* +6 — R4 

* +8 — ft3 
*+10 — R2 
*+12 — R1 

-*+14 — RO 
SSAVREG: 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

RTi 
;*RESTORE R0-R5 
;*CALL: 

:* RESREG 
SRESREG: 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

RTI 



RO, -(SP) 
R1,-(SP) 
R2.-(SP) 
R3,-(SP) 
R4,-(SP) 
R5, -(SP) 

22(SP). -(SP) 
22(SP),-<SP) 
22(SP),-(SP) 



;PUSH 


RO 


ON 


STACK 


;PUSH 


R1 


ON 


STACK 


;PUSH R2 ON STACK 


;PUSH R3 ON STACK 


;PUSH R4 


ON 


STACK 


;PUSH R5 


ON 


STACK 


;SAVE 


PS 


OF 


MAIN FLOW 


;SAVE 


PC 


OF 


MAIN FLOW 


;SAVE 


PS 


OF 


CALL 


;SAVE 


PC 


OF 


CALL 



(SP)+,22(SP) 
(SP)+.22(SP) 
(SP)+, 22(SP) 
(SP)+, 22(SP) 
(SP)+. R5 
(SP)+, R4 
(SP)+, R3 
(SP)+, R2 
(SP)+, R1 
(SP)+, RO 



OF 
OF 
OF 



;RESTORE PC 
.•RESTORE PS 
;RESTORE PC 
;RESTORE PS OF 
;POP STACK 
;POP STACK 
;POP STACK 
;POP STACK 
;POP STACK 
;POP STACK 



CALL 
CALL 

MAIN FLOW 
MAIN FLOW 



INTO R5 
INTO R4 
INTO R3 
INTO R2 
INTO R1 
INTO RO 



CKKUAEO 11/24/4^; UBI MAP 
TYPE ROUTINE 
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022200 
02220A 
022206 
022210 
022212 
02221A 
022220 
022226 
022230 
022236 
0222A0 
022244 
022250 

c::>252 

022260 
02i:262 
022264 
022266 
022270 
022272 
0^2276 
022300 
022304 
022306 
022312 
022314 
022316 
022320 
022322 
022326 
022330 
022334 
022340 
022342 

022346 
022352 
022354 
022360 
022364 



105737 
100002 
000000 
000430 
010046 
017600 
122737 
001011 
132737 
001405 
010037 
004737 
000000 
132737 
001003 
112046 
001005 
005726 
012600 
062716 
000002 
122716 
001430 
122716 
001006 
005726 
104401 
001223 
105037 
000755 
004737 
123726 
001350 
013746 

105366 
002770 
004737 
105337 
000770 



001155 



000002 
000001 



020162 



000100 020163 

022250 
021336 

000040 020163 



000002 
000011 
000200 

022540 

022412 
001154 

001152 

000001 



f41i 
1541 



022366 112716 000040 



SBTTL TYPE ROUTINE 

*R0UTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE. 
*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
*N0TE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER, 
*N0TE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
*N0TE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 



;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



IS THERE A TERMINAL? 

BR IF YES 

HALT HERE IF NO TERMINAL 

LEAVE 

SAVE RO 

GET ADDRESS OF ASCIZ STRING 

RUNNING IN APT MODE 

NO, GO CHECK FOR APT CONSOLE 

SPOOL MESSAGE TO APT 

NO.GO CHECK FOR CONSOLE 

SETUP MESSAGE ADDRESS FOR APT 

SPOOL MESSAGE TO APT 

MESSAGE ADDRESS 

APT CONSOLE SUPPRESSED 

YES, SKIP TYPE OUT 

HUSH CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'T THE TERMINATOR 

1^ TERMINATOR POP IT OFF THE STACK 

RESTORE RO 

ADJUST RETURN PC 

RETURN 

BRANCH IF <HT> 

BRANCH IF NOT <CRLF> 

POP <CR><LF> EQUIV 
TYPE A CR AND LF 

CLEAR CHARACTER COUNT 

GET NEXT CHARACTER 

60 TYPE THIS CHARACTER 

IS IT TIME FOR FILLER CHARS.? 

IF NO GO GET NEXT CHAR. 

GET # OF FILLER CHARS. NEEDED 

AND THE NULL CHAR. 

DOES A NULL NEED TO BE TYPFn? 

BR IF NO— GO POP THE NULL OFF OF STACK 

60 TYPE A NULL 

DO NOT COUNT AS A COUNT 

LOOP 

REPLACE TAB WITH SPACE 



;*CALL: 






;*1) USING A TRAP INSTRUCTION 


;* 


TYPE 


,«ESADR 


;*0R 






;* 


TYPE 




;* 


MESADR 




$TYPE: 


TST8 


$TPFLG 




BPL 


1$ 




HALT 






BR 


3$ 


1$: 


MOV 


RO,-(SP) 




MOV 


a2(SP),R0 




CMPB 


#APTENV,$ENV 




BNE 


62$ 




BITB 


#APTSPOOL,$ENVM 




BEQ 


62$ 




MOV 


R0,61$ 




v*SR 


PC,$ATY3 


61$: 


.WORD 





62$: 


BITS 


*APTCSUP,$ENVM 




BNE 


60$ 


2$: 


MOVQ 


(R0)+,-(SP) 




BNE 


4$ 




TST 


(SP) + 


60$: 


MOV 


(SP)+, RO 


3$: 


ADD 

RTI 


lf2ASP) 


4$: 


CMPB 


#HT,(SP) 




BEQ 


8$ 




CMPB 


*CRLF,<SP) 




BNE 


5$ 




TST 


iSP)^ 




TYPE 






$CRLF 






CLRB 


$CHARCNT 




BR 


2$ 


5$; 


JSR 


PC,$TVPEC 


6$: 


CMPB 


$FILLC,(SP)+ 




BNE 


2$ 




MOV 


$NULL,-(SP) 


7$: 


DECS 


KSP) 




BLT 


6$ 




JSR 


PC,$TYPEC 




DEC6 


$CHARCNT 




BR 



:HORIZONTAL TAB PROCESSOR 
8$: MOVB #' ASP) 



CKKUAEO 11/2A/AA UBI MAP 
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022372 
022376 
022404 
022406 
022410 
022412 
022412 
022416 
022420 
022424 
022430 
022434 
022436 
022436 
022442 
022444 
022450 
022454 
022460 
022462 
022462 
022464 
022464 
022470 
022472 
022500 
022502 
022510 
022516 
022520 
022524 
022526 
022534 
022536 
022540 
022542 



004737 
132737 
001372 
005726 
000724 

105777 
100022 
017746 
042716 
122716 
001012 

105777 
100375 
117716 
042716 
122716 
001366 

005726 

105777 
100375 
126627 
001420 
116677 
122766 
001003 
105037 
000406 
122766 
001402 
105227 
000000 
000207 



022412 
000007 



156524 

156520 
177600 
000023 



156500 

156474 
177600 
000021 



156456 

000002 

000002 
000015 

022540 

000012 



9$: JSR 
022540 BIT8 

BNE 
TST 
BR 

$TYPEC; 

TST8 

BPL 

MOV 

BIC 

CMP8 

BNE 

101$: 

TST8 

BPL 

M0V8 

BIC 

CMP8 

BNE 

102$: 

TST 

10$: 

TST6 
BPL 
000021 CMP8 

BEO 
156440 M0V8 
000002 CMPB 

BNE 
CLRB 
BR 
CMPB 
BEO 
INCB 

$CHARCNT:.WORD 

$TYPEX: RTS 



000002 1$: 



PC,$TYPEC 

#7,$CHARCNT 

9S 

{SP) + 

2$ 



;;TYPE A SPACE 
;;BRANCH IF NOT AT 
;;TAB STOP 

;;POP SPACE OFF STACK 
;;6ET NEXT CHARACTER 



a$TKS 


;;CHAR IN KY8D BUFFER? 




■MJDOOl 


10$ 


;;BR IF NOT 




•MJDOOl 


a$TK8.-(SP) 
#177600. (SP) 


;;6ET CHAR 




•MJDOOl 


;; STRIP EXTRANEOUS BITS 




•MJDOOl 


nXOFFASP) 


;;WAS CHAR XOFF 




•MJDOOl 


102$ 


;;8R IF NOT 




•MJDOOl 

•MJDOOl 


a$TKS 


;;WAIT FOR CHAR 




•MJDOOl 


101$ 






•MJDOOl 


a$TKB,(SP) 
#177600. (SP) 


;;6ET CHAR 




•MJDOOl 


;;SJR1P IT 




•MJDOOl 


#$XON.(SP) 


;;WAS IT XON? 




•MJDOOl 


101$ 


;;8R If NOT 




•MJDOOl 
•MJDOOl 


(SP)-^ 


;;FJX STACK 




MJDOOl 
MJDOOl 


a$TPs 


;;WAIT UNTIL PRINTER IS 


READY 




10$ 






MJD001 


2(SP) ,#$X0N 


;:1S CHARACTER A RANDOM 


XON? 


•RAN001 


$TYPEX 


; .'BRANCH IF YES 




'RAN001 


2(SP).a$TP8 


;;LOAD CHAR TO BE TYPED 


INTO DATA REG. ' 




#CR.2(SP) 


;;IS CHARACTER A CARRIAGE RETURN? 




1$ 


; .'BRANCH IF NO 






$CHARCNT 


;; YES— CLEAR CHARACTER COUNT 




$TYPEX 


;;EXIT 






#LF.2(SP) 
$TYPEX 


;;IS CHARACTER A LINE FEED? 




; .-BRANCH IF YES 






(PC) + 


;; COUNT THE CHARACTER 







PC 


;; CHARACTER COUNT STORAGE 





CKKUAEO 11/24/AA UBI MAP 
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0225A4 
022550 
022556 
022562 
022566 
022570 
022576 
02260A 
022612 
0226U 
022616 
022620 
022624 
022626 
022632 
022636 
022642 
022646 
022650 
022652 
022654 
022656 
022660 
022662 
022664 
022666 
022672 
022674 
022700 
022702 
022704 
022706 
022710 
022714 



0176**6 
116637 
112637 
062716 
000406 
112737 
112737 
112737 
010346 
010446 
010546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
100016 
042703 
001002 
005704 
001403 
005204 
052703 
052703 



000000 

000001 022767 

022771 

000002 

000001 022767 
000006 022771 
000005 022766 



022771 

000006 
022770 
022767 
000012 



022770 
U7770 



000060 
000040 



■SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

*THIS ROUTINE IS USED TO CHANGE A 16-8IT BINARY NUMBER TO A 6-DI6IT 

*OCTAL (ASCII) NUMBER AND TYPE IT. 

*$TyPOS — ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 



*CALL: 

*r MOV NUM,-(SP) 

* TYPOS 

* .BYTE N 

* .BYTE M 

*$TYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

*$TYPOS OR STYPOC 
*CALL: 

* MOV NUM,-(SP) 

* TYPON 
* 

*$TYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

*CALL: 



NUMBER TO BE TYPED 

CALL FOR TYPEOUr 

N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

M=1 OR 

;;1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 



;;NUMBER TO CE TYPED 
;;CALL FOR TYPEOUT 



* 
$TYPOS: 



STYPOC : 
STYPON; 



1$; 
2$: 



3$: 



4$: 

5$: 



MOV NUM,-(SP) 

TYPOC 

MOV a(SP),-(SP) 

M0V8 1(SP),$0FI'L 

MOVa (SP) +,$0M0DE+1 

ADD *2,(SP) 

BR STYPON 

Move #1,S0FILL 

M0V8 #6,S0M0DE+1 

Move *5,$0CNT 

MOV R3,-(SP) 

MOV R4, -(SP) 

MOV R5,-(SP) 

MOVB SOM0DE+1,R4 

NEG R4 

ADD /y6«R4 

MOVB R4,S0M0DE 

MOVB S0FILL,R4 

MOV 12(SP),R5 

CLR R3 

ROL R5 

BR 3S 

ROL R5 

ROL R5 

ROL R5 

MOV R5,R3 

ROL R3 

DECB SOMODE 

BPL 7$ 

BIC #177770, R3 

6NE 4S 

TST R4 

BEQ 5S 

INC R4 

BIS #'0,R3 

BIS #• ,R3 



;NUMBER TO BE TYPED 
;CALL FOR TYPEOUT 
; PICKUP THE MODE 
;LOAD ZERO FILL SWITCH 
;NUMBER OF DIGITS TO TYPE 
;ADJ"ST RETURN ADDRESS 



SET THE 
SET FOR 
SET THE 
SAVE R3 
SAVE R4 
SAVE R5 
GET THE 



ZERO FILL SWITCH 
SIX(6) DIGITS 
ITERATION COUNT 



NUMBER OF DIGITS TO TYPE 



; SUBTRACT IT FOR MAX. ALLOWED 

;SAVE IT FOR USE 

;GET THE ZERO FILL SWITCH 

; PICKUP THE INPUT NUMBER 

; CLEAR THE OUTPUT WORD 

; ROTATE MSB INTO •*€'* 

;G0 DO MSB 

;FORM THIS DIGIT 



GET LSB OF THIS DIGIT 

TYPE THIS DIGIT? 

BR IF NO 

GET RID OF JUNK 

TEST FOR 

SUPPRESS THIS 0? 

BR IF YES 

DON'T SUPPRESS ANYMORE O'S 

MAKE THIS DIGIT ASCII 

MAKE ASCII IF NOT ALREADY 



CKKUAEO 11/24/A4 UBI MAP 
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022720 
022724 
022730 
022734 
022736 
022740 
022742 
022744 
022746 
022750 
022752 
022760 
022762 
022764 
022765 
022766 
022767 
022770 



110337 

104401 

105337 

003347 

002402 

005204 

000744 

012605 

012604 

012603 

016666 

012616 

000002 

000 

000 

000 

000 

000000 



022764 
022764 
022766 



000002 000004 





MOVS 




TYPE 


7$: 


DECS 




B6T 




BLT 




INC 




BR 


6$: 


MOV 




MOV 




MOV 




MOV 




MOV 




RTI 


8$: 


.BYTE 




-BYTE 


SOCNT: 


.BYTE 


SOFILL: 


.BYTE 


$0M0DE: 


.WORD 



R3-8$ 

,8$ 

$0CNT 

2$ 

6$ 

R4 

2$ 

(SP)+,R5 

(SP)+,R4 

(SP)+, R3 

2(SP), 4(SP) 

(SP)+, (SP) 









;SAVE FOR TYPING 

;G0 TYPE THIS DIGIT 

; COUNT BY 1 

;8R If MORE TO DO 

;BR IF DONE 

;INSURE LAST DIGIT ISN'T A BLANK 

;G0 DO THE LAST DIGIT 

; RES TORE R5 

;REST0RE R4 

.'RESTORE R3 

;SET THE STACK FOR RETURNING 

; RE TURN 

.-STORAGE FOR ASCII DIGIT 

.•TERMINATOR FOR TYPE ROUTINE 

.■OCTAL OIGJT COUNTER 

;2ER0 FILL SWITCH 

.'NUMBER OF DIGITS TO TYPE 



CKKUAEO 11/24/44 UBI MAP 


CONVERT BINARY 


TO DECIMAL AND 


4111 




022772 




022772 


010046 


022774 


010146 


022776 


010246 


023000 


010346 


023002 


010546 


023004 


012746 020200 


023010 


016605 000020 


023014 


100004 


023016 


005405 


023020 


112766 000055 
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023026 
023030 
023034 
023040 
023042 
023046 
023050 
023052 
023054 
023056 
023060 
023062 
023064 
023066 
023070 
023072 
023074 
023102 
023106 
023112 
023114 
023116 
023122 
023124 
023126 
023130 
023132 
023134 
023136 
023144 
023146 
023150 
0231 52 
0231 54 
023156 
023160 



005000 
012703 
112723 
005002 
016001 
160105 
002402 
005202 
000774 
060105 
005702 
001002 
105716 
100407 
106316 
103003 
116663 
052702 
052702 
110223 
005720 
020027 
002746 
003002 
010502 
000764 
105726 
100003 
116663 
105013 
012605 
012603 
012602 
012601 
012600 
104401 



000001 



023206 
000040 

023176 



000001 
000060 
000040 



000010 



Mini 



Mini Mint 



025206 



S8TTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

*THIS ROUTINE IS USED TO CHANGE A 16-8IT BINARY WmER TO A 5-DI6IT 
•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
♦NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
♦BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
♦REPLACED WITH SPACES. 

;;PUT THE BINARY NUMBER ON THE STACK 
;;G0 TO THE ROUTINE 

PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R5 ON STACK 

SET BLANK SWITCH AND SIGN 

GET THE INPUT NUMBER 

BR IF INPUT IS PCS. 

MAKE THE BINARY NUMBER POS. 

MAKE THE ASCII NUMBER NEG. 

ZERO THE CONSTANTS INDEX 

SETUP THE OUTPUT POINTER 

SET THE FIRST CHARACTER TO A BLANK 

CLEAR THE BCD NW^ER 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

BR IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 

CHECK IF BCD DIGIT=0 

FALL THROUGH IF 

STILL DOING LEADING O'S? 

BR IF YES 

MSD? 

BR IF NO 

YES— SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

GO DO THE NEXT DIGIT 

60 TO EXIT 

GET THE LSD 

GO CHANGE TO ASCII 

WAS THE LSD THE FIRST NON-ZERO? 

BR IF NO 

YES— SET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK TNTO R3 

POP STACK NTO R2 

POP STACK INTO Rl 

POP STACK INTO RO 

NOW TYPE THE NUMBER 



;*CALL: 






;* 


MOV 


NUM,-(SP) 


;* 


TYPDS 




STYPDS: 








MOV 


RO,-(SP) 




MOV 


R1,-(SP) 




MOV 


R2,-(SP) 




MOV 


R3,-(SP) 




MOV 


R5--(SP) 




MOV 


#20200, -(SP) 




MOV 


20(SP),R5 




BPL 


1$ 




NEG 


R5 




MOVB 


#*-J(SP) 


1$: 


CLR 


RO 




MOV 


#$D8LK,R3 




MOVB 


#' ,(R3)+ 


2$: 


CLR 


R2 




MOV 


$DT8L(R0),R1 


3$: 


SUB 


Rl ,R5 




BLT 


4$ 




INC 


R2 




BR 


3$ 


4$: 


ADD 


R1,R5 




TST 


R2 




BNE 


5$ 




TST6 


(SP) 




BMI 


IS 


5$: 


ASL8 


iSP) 




BCC 


6$ 




MOVB 


1(SP)--1(R3) 


6$: 


BIS 


#'0,r5 


7$: 


BIS 


#' ,R2 




MOVB 


R2,CR3)+ 




TST 


(R0) + 




CMP 


R0,^10 




BLT 


2$ 




BGT 


8$ 




MOV 


R5, R2 




BR 


6$ 


8$: 


TSTB 


iSP)-^ 




BPL 


9% 




MOVB 


-1CSP),-2(R3) 


9$: 


CLRB 


(R3) 




MOV 


(SP)+, R5 




NOV 


(SP)+, R3 




MOV 


(SP)+, R2 




MOV 


(SP)+,R1 




MOV 


(SP)+,RO 




TYPE 


,$DBLK 
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SEQUENCE 125 



023164 
023172 
0231 7A 
023176 
023200 
023202 
02320A 
023206 



016666 
012616 
000002 
023420 
001750 
000U4 
000012 



000002 000004 



$DT8L: 



$D8LK: 



MOV 

MOV 

RTI 

10000. 

1000. 

100. 

10. 

.8LKW 



2(SP). 4(SP) 
(SP)+,(SP) 



; .-ADJUST THE STACK 
;;RETURN TO USER 



CKKUAEO 11/2A/44 UBI MAP 
TTY INPUT ROUTINE 

A113 



MACRO M1113 11-JAN-82 11:27 



J 10 

PAGE 100 



SEQUENCE 126 



023216 
023220 
023226 
023232 
023234 
0232A2 
023250 
023256 
023260 
023264 
023266 
023272 
023276 
023302 
023304 
023306 
023314 
023316 
023324 
023326 
023334 
023336 
023344 



023346 
023350 
023354 
023360 
023362 
023364 
023366 
023372 
023374 
023400 
023402 
023406 
023412 
023416 
023420 
023424 
023430 



011646 
016666 
105777 
100375 
117766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 
000750 
026627 
001744 
026627 
002407 
026627 
003003 
042766 
000002 



010346 
012703 
022703 
101405 
104406 
112613 
122713 
001003 
104401 
000763 
111337 
104401 
122723 
001356 
105063 
104401 
012603 



000004 
155710 

155704 
177600 
000004 

155656 

155652 
177600 
000021 



000004 
000004 
000004 
000040 



023454 
023464 



000177 

001222 

023452 
023452 
000015 

)77777 
001224 



000002 



000004 
000004 
000023 



000021 
000140 
000175 
000004 



S8TTL TTY INPUT ROUTINE 

ENABL LSB 
DSABL LSB 

;************r***%**r****i^ + ****Hf******** ******** ****************** 

*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
*CALL: 



RDCHR 
RETURN HERE 



Irdchr 

1$: 



2$: 



3$: 



4$: 

;;**** 

;*THIS 
;*CALL 



(SP), -(SP) 

4(Sp5,2(SP) 

aSTKS 

1$ 

a$TKS,4(SP) 

/(^^C<177>,4(SP) 

4(SP),«3 

3$ 

a$TKS 

2$ 

a$TK8--(SP) 

#*C177,(SP) 

(SP) + ,4'21 

2$ 

1$ 

4(SP),^$X0N 

1$ 

4(SP),#140 

4$ 

4(SP),/I'175 

4$ 

ft^OA(SP) 

******************* 



: MOV 

MOV 

TST8 

BPL 

M0V8 

BIC 

CMP 

BNE 

TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

BR 

CMP 

6EQ 

CMP 

BLT 

CMP 

B6T 

BIC 

RTJ 
******** 

ROUTINE WILL INPUT A STRING FROM THE TTY 



INPUT A SINGLE CHARACTER FROM THE TTY 
CHARACTER IS ON THE STACK 
WITH PARITY BIT STRIPPED OFF 

PUSH DOWN THE PC 

SAVE THE PS 

WAIT FOR 

A CHARACTER 

READ THE TTY 

GET RID OF JUNK If ANY 

IS IT A CONTROL-S? 

BRANCH IF NO 

WAIT FOR A CHARACTER 

LOOP UNTIL ITS THERE 

GET CHARACTER 

MAKE IT 7-BIT ASCII 

IS IT A CONTROL-Q? 

IF NOT DISCARD IT 

YES, RESUME 

IS IT A RANDOM XON? 

BRANCH IF YES 

IS IT UPPER CASE? 

BRANCH IF YES 

IS IT A SPECIAL CHAR? 

BRANCH IF YES 

MAKE IT UPPER CASE 

60 BACK TO USER 

************ ****'V* ************** 



;RAN001 
;RAN001 



RDLIN 

RETURN HERE 

iRDLIN: MOV R3,- (SP) 

1$: MOV .«TTYIN.R3 

2$: CMP nTTYIN+8.,R3 

BLOS ^\ 

RDCHR 

MOVB (SP)+,<R3) 

10$; CMPB -yi77,(R3) 

BNE 3$ 

4$: TYPE ,$QUES 

BR 1$ 

3$- M0V8 (R3),9$ 

TYPE ,9$ 

CMPB #15,(R3)+ 

BNE 2% 

CLRB -1{R3) 

TYPE ,$LF 

MOV (SP)+,R3 



; INPUT A STRING FROM THE TTY 

;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

.•TERMINATOR WILL BE A BYTE OF ALL O'S 

;SAVE R3 

;6ET ADDRESS 

;8UFFER FULL? 

;BR IF YES 

;60 READ ONE CHARACTER FROM THE TTY 

;GET CHARACTER 

;IS IT A RUBOUT 

;SKIP IF NOT 

;TYPE A '?' 

; CLEAR THE BUFFER AND LOOP 

;ECHO THE CHARACTER 

; CHECK FOR RETURN 
;LOOP IF NOT RETURN 
; CLEAR RETURN iTHE 15) 
;TYPE A LINE FEED 
.-RESTORE R3 
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023432 
023434 
023442 
023450 
023452 
023453 
023454 
023464 
023471 
023476 
023507 



011646 
016666 
012766 
000002 
000 
000 

136 
136 
015 
040 



000004 
023454 



125 
107 
012 
040 



000002 
000004 



015 
015 
123 
116 



9$: 

STTYIN 
SCNTLU 
SCNTLG 
SHSWft: 
$MNEW: 



MOV (SP),-(SP) 

MOV 4(Sp5,2(SP) 

MOV #$TTYIN,4(SP) 

RTI 

.8YTE 

.eVTE 

.8LK8 8. 

.ASCIZ /*U/<15><12> 

.ASCIZ /*6/<15><12> 

•ASCIZ <15><12>/SWR = 

.ASCJZ / NEW = / 



SEQUENCE 127 



.•ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 

.'RETURN 

.-STORAGE FOR ASCII CHAR. TO TYPE 

; TERMINATOR 

.•RESERVE 8 BYTES FOR TTY INPUT 

.•CONTROL 'D*' 

; CONTROL "6" 
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SEQUENCE 128 



023520 
023522 
023526 
023530 
023532 
02353A 
0235A0 

023542 
023544 
023552 



0P3554 
0^3556 
023560 
023562 
023564 
023566 
023570 
023572 
023574 
023576 
023600 

4116 023602 

4117 023604 

4118 023606 



010046 

016600 000002 

005740 

111000 

006300 

016000 023554 

000200 

011646 

016666 000004 

000002 



023542 
022200 
022570 
022544 
022604 
022772 
023216 
023346 
005630 
022104 
022142 
002726 
002754 
005630 



•S8TTL TRAP DECODER 

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*0F THE DESIRED ROUTINE- THEN USING THE ADDRESS OBTAINED IT WILL 
*G0 TO THAT ROUTINE. 

;;SAVE RO 

;;GET TRAP ADDRESS 

;; BACKUP BY 2 

;;6ET RIGHT BYTE OF TRAP 

;;POSITION FOR INDEXING 

;; INDEX TO TABLE 

;;G0 TO ROUTINE 
'6ETPRI" rt/^CRO 



STRAP: 



000002 



;;THIS 
$TRAP2; 



TO 



RO,-(SP) 
2(SP),R0 
-(RD) 
(RO),RO 
RO 

$TRPAD(RO),RO 
RO 
HANDLE THE 



* h 



MOV 

MOV 

TST 

MOVB 

ASL 

MOV 

RTS 
li USE 

MOV 

MOV 

RTI 
SBTTL TRAP TABLE 
*JH1S TABLE CONTAINS THE STARTING 
*8Y THE "TRAP" INSTRUCTION. 

ROUTINE 



(SP),-(SP) 



;;MOVE THE PC DOWN 
;;WOVE THE PSW DOWN 
;; RESTORE VHE PSW 



ADDRESSES OF THE ROUTINES CALLED 



ItRPAD: .WORD 
STYPE 
STYPOC 
STYPOS 
STYPON 
STYPDS 
SRDCHR 
SRDLIN 
SRDOCT 
SSAVREG 
$RESRE6 
TBITOF 
TBITRE 
SRDOCT 



STRAP2 

CALL=TYPE TRAP+1 (104401) TTY TYPEOUT ROUTINE 

CALL=TYPO'. TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

CALL=TYP'JS TRAP+3( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 

CALL=TYPON TRAP+4 (104404) TYPE OCTAL WUMBER (AS PER LAST CALL) 

CALL=TYFDS TRAP+5( 104405) TYPE DECIMAL NUMBER (WITH SIGN) 

CALL=RDCHR TRAP+6(104406) TTY TYPEIN CHARACTER ROUTINE 

CALL=RDLIN TRAP+7(104407) TTY TYPEIN STRING ROUTINE 

CALL=RDOCT TRAP+1 0(1 04410) READ AN OCTAL NUMBER FROM TTY 

CALL=SAVRE6 TRAP+1 1 (104411) SAVE R0-R5 ROUTINE 

CALL=RESREG TRAP+12(104412) RESTORE R0-R5 ROUTINE 

CALL=TBITO TRAP+13(104413) THIS WILL TURN OFF T BIT TRAPPING 

CALL=TBITR TRAP+14(104414) THIS WILL RETURN THE T BIT TO PREVIOUS CONDI 

CALL=RDOCT TRAP+15(104415) READ OCTAL NUMBER 



J 
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SEQUENCE 129 



A120 



A121 
4122 



023610 
023616 
023624 
023626 
023630 
023632 
023634 
023636 
023640 
023644 
023650 
023656 
023660 



023662 
023670 
023674 
023700 
023704 
023706 
023712 
023714 
023716 
023720 
023722 
023724 
023726 
023734 
023742 
023744 
023746 
023750 
023752 
023760 
023764 
023766 
023770 
023772 
023774 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
017746 
010637 
012737 
000000 
000776 



012737 
013706 
005037 
005237 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104401 
023774 
012716 
010000 
042766 
005037 
000002 
000000 
000776 
000000 
012 



023766 
000340 



155272 
023772 
023662 



023766 
023772 
Or'3772 
023772 

155224 



.SeiTL POWER DOWN AND UP ROUTINES 



; ;****»»»*****»**»****♦***♦♦**»****•******************** *****iV**** 



000024 
000026 



000024 



000024 



;POWER DOWN ROUTINE 

SPWRDN: MOV ^SILLUP,a#PWRVEC 

MOV #340,a#PWRVEC+2 

MOV RO,-(SP) 

MOV R1,-(SP) 

MOV R2,-(SP) 

MOV R3,-(SP) 

MOV R4,-(SP) 

MOV R5,-(SP) 

MOV aSWR,-(SP) 

MOV SP.$SAVR6 

MOV /'SPWRUP^S^PWRVEC 

HALT 

BR .-2 



:SET FOR FAST UP 

PUSH RO ON STACK 
PUSH R1 ON STACK 



PUSH R2 
PUSH R3 
PUSH R4 
PUSH R5 



ON 
ON 
ON 
ON 



STACK 
STACK 
STACK 
STACK 



PUSH aSWR ON STACK 

SAVE SP 

;SET UP VECTOR 



;;HANG UP 

:POWER UP ROUTINE 
SPWRUP 



1$; 



023610 
000340 



000020 
022076 



000024 
000026 



000002 



015 



120 



SPWRMG 
SPWRAD 

SILLUP 

$SAVR6 
PWRMSG 



MOV 

MOV 

CLR 

INC 

8NE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TYPE 

.WORD 

MOV 

.WORD 

BIC 

CLR 

RTI 

HALT 

BR 



.ASCIZ 

.EVEN 



^ILLUP^ajS'PWRVEC 

$SAVR6,SP 

$SAVR6 

$SAVR6 

1$ 

(SP)+,asWR 

<SP)+, R5 

(SP)+, R4 

(SP)+, R3 

(SP)+,R2 

(SP)+. R1 

(SP) +,R0 

^$PWRDN,a*PWRVEC 

^340,a#PWRVEC+2 

PWRMSG 

(PC)+,(SP) 

START 

#20,2(SP) 

$T8IT 



;S£T FOR FAST DOWN 

GET SP 

WAIT LOOP FOR THE TTY 

WAIT FOR THE INC 

OF WORD 

POP STACK INTO asWR 

POP STACK INTO R5 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 

POP STACK INTO RO 

;SET UP THE POWER DOWN VECTOR 

PRI0:7 

REPORT THE POWER FAILURE 

POWER FAIL MESSAGE POINTER 

RESTART AT START 

RESTART ADDRESS 

CLEAR '7" BIT 

CLEAR THE 'T" BIT FLAG 



,,THE POWER UP SEQUENCE WAS STARTED 
.-2 ;: BEFORE THE POWER DOWN WAS COMPLETE 

..PUT THE SP HERE 
<12><15>?P0WER FAILURE, RESTARTING PROGRAM? 



CKKUAEO 11/2A/44 U81 MAP MACRO Ml 113 11-JAN-82 11:27 PAGE 
DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 



N 10 

103 



SEQUENCE 150 



^\2i, 



024040 
024042 
024046 
024052 
0^4056 
024062 
024064 
024066 
024070 
024072 
024074 
024076 
024100 
024102 
024104 
024110 
024112 
024114 
024116 
024120 
024122 
024124 
024126 
024130 
024132 
024134 
024140 
024142 



104411 
016601 
012705 
012704 
012703 
012100 
012101 
005002 
110245 
010002 
005304 
003007 
001405 
005205 
010566 
104412 
000207 
006203 
006001 
006000 
006001 
006000 
006001 
006000 
040302 
062702 
000753 



.SBTTL DOUBLE LENGTH BINARY TO 

;*THIS ROUTINE WILL CONVERT A 32 
;*UNSI6NED OCTAL ASCIZ NUMBER. 
;*CALL 



000002 
024157 
000014 
177770 



000002 



000060 



;* 


MOV 


#PNTR,-(SP) 


;* 


JSR 


PC,anDB20 


§DB20: 


RETURN 
SAVREG 






MOV 


2(SP).R1 




MOV 


*$0CTVL+13.,R5 




MOV 


#12.,R4 




MOV 


jV*C7,R3 




MOV 


(R1)+,R0 




MOV 


(R1)+,R1 




CLR 


R2 


1$: 


M0V8 


R2,-(R5) 




MOV 


R0,R2 




DEC 


R4 




B6T 


3$ 




BEO 


2$ 




INC 


R5 




MOV 


R5, ?(SP) 




RESRE6 






RTS 


PC 


2$: 


ASR 


R3 


3$: 


ROR 


R1 




ROR 


RO 




ROR 


R? 




ROR 


RO 




ROR 


R1 




ROR 


RO 




BIC 


R3-R2 




^DD 


fl'bMl 




BR 


1$ 


iOCTVL; 


*6LK8 


14, 



OCTAL FkSZII CONVERT ROUTINE 

-BIT UNSIGNED BINARY NUMBER TO AN 



POIHI^.R TO LOW WORD OF BINARY NUMBER 
CALL THE ROUTINE 

THE ADDRESS OF THE ?IRS^ ASCIZ CHAR. IS ON THE STACK 
SAVE ALL REGISTERS 
PICKUP Wi POINTER TO LOW WORD 
POINTER TO DATA TABLE 
DO ELEVEN CHARACTERS 
MASK 

LOWER WORD 
HIGH WORD 
TERMINATOR 

PUT CHARACTER IN DATA TABLE 
GET THIS DIGIT 
COUNT THIS CHARACTER 
BR l¥ NOT THE LAST DIGIT 
BR IF IT IS THE LAST DIGIT 
ALL DIGITS DONE-ADJUST POINTER FOR FIRST 
ASCIZ CHAR, a PUT IT ON THE STACK 
RESTORE ALL REGISTERS 
RETURN TO USER 

POSITION THE MASK FOR THE LAST DIGIT 
POSITION THE BINARY NUMBER FOR 
THE NEXT OCTAL DIGIT 



MASK OUT ALL JUNK 

MAKc THIS CHAR. ASCII 

60 PUT IT IN THE DATA TABLE 

RESERVE DATA TABLE 
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A126 








-SBTTL ERROR 


A127 02';i60 


116 


117 


124 


EMI 


.ASCJZ 


<.128 02A2A5 


125 


116 


105 


EM2 


.ASCJZ 


A129 02A317 


125 


116 


105 


EM3 


.ASCJZ 


A130 02A«5 


123 


125 


115 


EM4 


.ASCJZ 


A131 02A505 


123 


125 


115 


EMS 


.ASCJZ 


A132 024600 


123 


125 


115 


EM6 


■ASCJZ 


4133 024702 


123 


125 


115 


EM7 


.ASCJZ 


4134 025003 


103 


101 


116 


EMIO: .ASCJJ 


4135 C25071 


123 


117 


040 




.ASCJZ 


4136 025155 


123 


125 


115 


EMU 


: .ASCJZ 


4137 025247 

4138 025321 


125 


116 


111 


EMlj 


?: .ASCJZ 


103 


101 


116 


EMi; 


5: -ASCJ] 


4139 025401 


101 


104 


104 




.ASCJJ 


4140 025462 


111 


106 


040 




.ASCJZ 


414'. 025525 


123 


125 


115 


EMV 


»: .ASCJZ 


4142 (;25630 


115 


101 


111 


EMI! 


>: .ASCJZ 


4143 025723 


122 


105 


114 


EMie 


): .ASCJZ 


4144 026021 


116 


117 


040 


EMi; 


': .ASCJZ 


4145 026051 


111 


116 


124 


EM2( 


): .ASCJZ 


4146 026150 


111 


116 


124 


EM21 


.ASCJZ 


4147 026226 


111 


116 


124 


EM25 


U .ASCJZ 


4148 0263U 


114 


115 


101 


EM2: 


5: .ASCJZ 


4149 026344 


114 


115 


101 


EM^ 


»: .ASCJZ 


4150 026'i02 


114 


115 


101 


EM2! 


i: .ASCJZ 


4151 026^37 


114 


115 


101 


EM2^ 


i: .ASCJZ 


4152 026472 


106 


117 


122 


EM2/ 

EM3( 


^• .ASCJZ 


4153 026572 


113 


111 


120 


): .ASCJZ 


4154 026625 


124 


110 


105 


EM2( 


)1; -ASCJZ 


4155 026701 


124 


110 


105 


EM2( 


)2: .ASCJZ 


4156 026774 


124 


110 


105 


£M2( 


)3! .ASCJZ 


4157 027055 


125 


116 


111 


EM2( 


)4; .ASCJZ 


4158 027124 


125 


116 


111 


EM2( 


)5: .ASCJZ 


4159 027206 


104 


101 


124 


EM2I 


)6: -ASCJZ 


4160 027237 


122 


105 


106 


EM2( 


)7: .ASCJZ 


4161 027346 


115 


101 


120 


EM2 


0: .ASCJZ 


4162 027446 


122 


105 


114 


em5i 


1: .ASCJJ 


4163 027544 


124 


105 


123 




.ASCJZ 


4164 027604 


1^5 


101 


111 


EM21 


2: .ASCJJ 


4165 027677 


124 


105 


123 




.ASCJZ 


4166 027737 


115 


101 


120 


EM21 


3: .ASCJZ 


4167 030C30 


115 


101 


120 


EM21 


4: .ASCJZ 
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MESSAGES 

?NOT THE CORRECT TRAP CONDJTJON THROUGH ERRVEC (.^^OOA)? 

7UNEXPECTED CPU TRAP THROUGH ERRVEC ^*004)? 

7UNEXPECTED MEMORV MANAGEMENT TRAP. MEMORY MANAGEMENT STATUS REGJSTERS? 

7SUMMARY OF MAP REGJSTERS THAT TJMfD OUT ON READ? 

7SUMMARY OF DUAL ADDRESSJNG ERRORS ON LOADJNG MAP REGJSTERS7 

7SLWMAftY OF BJT PATTERN FAJLURES IN LOWER 16 BITS OF MAP REGJSTERS? 

7SUMMARY OF BIT PATTERN FAJLURES IN \JPPEH 6 BITS OF MAP REGISTERS? 

?CAN'T GET TO MAIN MEMORY FROM UNIBUS WITH THE MAP OFF?<CRLF> 

7S0 JUMPING TO THE SIZE JLWPER TEST FOR VERIFICATION? 

7SUMMARY OF COUNT PATTERN FAILURES ON THE UNIBUS DATA PATH? 

7UNI8US MAP IS RELOCATING WHEN NOT ENABLED? 

7CANN0T USE ANY OF THE MAP REGISTERS OR PHYSJCAL?<CRLF> 

7ADDRESS BIT14 IS STUCK LOW, MUST RESTART PROGRAM?<CRLF> 

7JF YOU DON'T LOOr^ ON THIS PROBLEM.? 

7SUMMARY OF UNIBUS ADDRESS ERRORS- WITH THE MAP RELOCATION DISABLED? 

7MAIN MEMORY TIMEOUT OVER THE UNIBUS DID NOT OCCUR PROPERLY? 

7REL0CATI0N THROUGH THE MAP WAS NOT CORRECT, CARRY PROPAGATION? 

7N0 UNIBUS MEMORY EXISTS? 

7JNTERRUPT/AB0RT LOGIC TESTS TRAP TO LOCATION 114 DID NOT OCCUR? 

7INTERRUPT/AB0RT TESTS R4 WAS OVERWRITTEN WITH? 

?INrERRUPT/A80RT TESTS TRAP DID NOT OCCUR DUE TO ABORT? 

7LMA NOT LOADED PROPERLY? 

7LMA FORCE JUMPER BIT NOT ZERO? 

7LMA FORCE JUMPER BJT NOT SET? 

7LMA CONTROL BITS INCORRECT? 

7F0RCE JUMPER BIT FAILS TO REVERT MAP REGISTER STATUS TO DEFAULT? 

7KJPAR5 NOT LOADED PROPERLY? 

7THE FOLLOWING REGISTERS TIMED OUT WHEN READ? 

7THE FOLLOWING ARE DUAL ADDRESSIfo ERRORS IN THE niBUS MAP? 

7THE BJT PATTERN THROUGH THE MAP REGISTERS FAILED? 

7UNIBUS DATA PATH COUNT PATTERN FAILURE? 

7UNIBUS ADDRESSING ERRORS, MAP RELOCATION DISABLED? 

7DATA PATTERN NOT CORRECT? 

7REFERENCED MAP REGISTER WITH ADDRESS ONE BJT DIFFERENT THAN 17770200? 

7MAP REGISTER(S) UNDER TEST DID NOT RESPOND IN DUAL MAPPING TEST? 

7REL0CATI0N THROUGH THE MAP WAS NOT CORRECT. CARRY PROPAGATION?<CRLF> 

?TEST CODE BEING RUN OVER UNIBUS? 

7MAJN MEMOPY TIMEOUT OVER THE UNIBUS '^ID NOT OCCUR PROPERLY?<CRLF> 

7TEST CODE BEING RUN OVER UNIBUS? 

?MAP REGISTER ENABLED WHEN DDW SAYS IT SHOULD BE DISABLED? 

7MAP REGISTER DISABLED WHEN DDW SAYS IT SHOULD BE ENABLED? 
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DATA HEADERS 
















A168 








.SBTTL 


DATA HEADERS 




A169 030121 


122 


105 


103 


DHl: 


•ASCJZ 


7RECE1VD 


EXPECTD TESTNO ERR PCV 


A170 030160 


122 


105 


103 


DH2: 


.ASCIZ 


7RECEJVD 


TE?TNO ERR PC7 


A171 030207 


123 


124 


101 


DH3: 


•ASCI] 


7STATUS 


AUTOJ/D VIRTUAL?<CRLF> 


A 172 030237 


122 


105 


107 




.ASCJZ 


7REGJSTR 


RE6ISTR ADDRESS TESTNO ERR PC7 


4173 030306 


122 


105 


107 


DH4: 


.ASCJJ 


?REGApRS 


REGADRS7<CRLF> 


4174 030330 


040 


042 


117 




.ASCJZ 


"AND" TERRORS TESTNO ERR PC? 


4175 030403 


122 


105 


107 


DH5: 


.ASCJJ 


7REGL0AD 


REGLOAD REGDUAL RE6DUAL7<CRLF> 


4176 030451 


040 


042 


117 




.ASCJZ 


? *W 


*'AND" 'W* "AND" #ERRORS TESTNO? 


4177 030540 


115 


101 


120 


DH6: 


.ASCJJ 


7MAPREG 


MAPRE6 EXPECTD EXPECTD RECEIVD RECEJVD?<CRLF> 


4178 030624 


040 


042 


117 




.ASCJZ 


7 'm*' 


"AND" •X)R" "AND" "OR" "AND" TERRORS TESTNO? 


4179 030727 


124 


105 


123 


DHIO; 


.ASCJZ 


7TESTN0 


ERR PC MMR3? 


4180 030754 


105 


130 


120 


DHll: 


.ASCJJ 


7EXPECTD 


EXPECTD RECEiVD RECEJVD?<CRLF> 


4181 031022 


040 


042 


117 




■ASCJZ 


7 'W* 


"AND" •t)R" "AND" ^ERRORS TESTNO? 


4182 031111 


103 


117 


120 


DHl 5: 


.ASCIJ 


7C0NDJTN 


CONDJTN?<CRLF> 


4183 031131 


105 


130 




.ASCJZ 


7EXPECTD 


RECEJVD TESTNO ERR PC? 


4184 031170 


124 


105 


123 


DH23: 


.ASCJZ 


7TESTN0 


ERR PC UmxP LMARCV7 


4185 031231 


124 


105 


^i^ 


DH24: 


.ASCJZ 


7TESTN0 


ERR PC LMAEXP LHARCV? 


4186 031270 


124 


105 


'25 


DH27: 


.ASCJZ 


7TESTN0 


ERR PC LMARCV ICJPAR4? 


4187 031327 


124 


105 


123 


DH30: 


.ASCJZ 


7TESTN0 


ERR PC PR5EXP PR5RCV? 


4188 031366 


122 


105 


107 


DH201 : 


.ASCJZ 


7RE6ADRS 


TESTNO ERR PC? 


4189 031415 


115 


101 


120 


OH202: 


.ASCJJ 


7MAPREG 


HAPREG NON-ZER?<C LF> 


4190 031451 


124 


105 


123 




.ASCJZ 


7TESTJNG 


DUALED CONTNTS TEifNO ERR PC? 


4191 031524 


122 


105 


107 


DH203: 


.ASCJZ 


7RE6ADRS 


PATTRN EXPCTD RECEVD TESTNO ERR PC? 


4192 031605 


105 


130 


120 


DH204 : 


.ASCJZ 


7EXPECT0 


RECEJVD ADDRSLOAD TESTNO ERR PC? 


4193 031656 


101 


104 


104 


DH205: 


.ASCJJ 


7ADDRESS 


ADDRESS?<CRLF> 


4194 031700 


105 


130 


120 




.ASCJZ 


7EXPECTD 


RECEJVD TESTNO ERR PC? 


4195 031743 


101 


104 


104 


DH206: 


.ASCJZ 


7ADDRESS 


EXPCTD RECVED TESTNO ERR PC? 


4196 032013 


101 


104 


104 


DH207: 


.ASCJZ 


7ADDRUSED BJTDJFF TESTNO ERR PC? 1 


4197 032054 


124 


105 


123 


DH210: 


.ASCJZ 


7TESTN0 


ERR PC MAPREGADR? 


4198 032106 


103 


117 


122 


DH211: 


.ASCJJ 


7 CORRECT 


EXPECTD RECEIVD?<CRLF> 


4199 032140 


101 


104 


104 




.ASCJZ 


7ADDRESS 


DATA FROH U8 TESTNO ERR PC? 


4200 032211 


103 


117 


116 


DH212: 


.ASCJJ 


7C0NDITN 


CONDI TN?<CRLF> 


4201 032231 


105 


130 


120 




.ASCJZ 


7EXPECTD 


RECEJVD TESTNO ERR PC? 


4202 032270 


124 


105 


123 


DH213: 


.ASCJZ 


7TESTN0 


ERR PC REG NO DDWDAT D0WADR7 


4203 










.EVEN 







L 



J 
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4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 



032340 
032552 
032362 
032376 
032412 
032430 
032452 
032462 
032500 
032516 
032530 
032542 
032554 
032566 
032600 
032612 
032622 
032636 
032654 
032670 
032702 
032716 
032730 
032740 
032754 
032766 



001330 
001330 
001350 
001236 
001236 
001 236 
020146 
OOU'54 
001236 
001326 
020146 
020146 
020146 
020146 
020146 
005764 
005770 
005770 
001174 
005764 
005764 
005764 
020146 
005764 
001326 
020146 



001326 
020146 
001352 
001232 
001232 
001232 
001114 
001252 
001232 
001330 
001114 
001114 
001114 
001114 
001114 
020146 
005764 
001174 
001176 
005770 
001204 
001160 
001114 
001166 
001330 
001114 



020146 
001340 
001354 
001320 
001246 
001254 
172516 
001246 
001246 
020146 
005764 
001162 
001174 
001174 
001206 
001114 
001202 
001170 
001164 
020146 
001206 
020146 
005764 
001164 
020146 
001174 



.SBTTL 

DTI 

DT2 

DT3 

DT4 

DT5 

DT6 

DT10 

DT11 

DTK 

DT15 

DT23 

DT24 

DT26 

DT27 

DT30 

DT201 

DT202 

DT203 

DT204 

DT205 

0T206 

DT207 

DT210 

DT211 

DT212 

DT213 



DATA TABLES 

.WORD PCPUER,CPUEXP,$TESTN-BADPC,0 

.WORD PCPUER,$TESTN,eADPC,6 

.WORD P««R0,PMMR1 ,PMMR2,$TESTN,BADPC,0 

.WORD ADDROR,ADRAND,FRRCNT,$TESTN,$ERRPC,0 

.WORD ADDROR,ADRAND,DATA0R,DATAND,ERRCNT,$TESTN,0 

.WORD ADDROR,ADRAND,PATTOR,PATAND,DATAOR,DATAND,ERRCNT,$TESTN,0 

.WORD $TESTN,$ERRPC,MMR3,0 

.WORD PATTOR,PATAND,DATAOR,DATAND,ERRCNT,$TESTN,0 

■ WORD ADDROR,ADRAND,DATA0R,DATAND,ERRCNT,$TESTfg,0 

.WORD CPUEXP,PCPUER,$TESTN,$ERRPC,0 

.WORD $TESTN,$ERRPC,EADRES,EADRS2,0 

.WORD $TESTN,$ERRPC,$REG1,LMAHJ,0 

.WORD $TESTN,$ERRPC,$TMP0,$RE62,0 

.WORD $TESTN,$ERRPC,$TW>0,KIPAR4,0 

.WORD $TESTN,$ERRPC,$TMP5,KIPAR5,0 

.WORD EADRES,$TESTN,$ERRPC40 

.WORD EADRS2,EADRES-$TMP3,iTESTN,$ERRPC,0 

.WORD EADRS2-$T«P0.$RE64.$REG3,$TESTN,$ERRPC,0 

.WORD STMPOJtMPI jRE62.iTESTN,$ERRPC,0 

.WORD EADRES.EADRS2,$TESTN,$ERRPC,0 

.WORD EADRES,$T«P4,$TMP5,$fESTN,$fRRPC,0 

.WORD EADRES,$RE60,$TESTN,$ERRPC,0 

.WORD $TESTN,$ERRPC-EADRES,0 

.WORD EADRES.$RE63-$RE62,$TESTN,$ERRPC,0 

.WORD CPUEXP,PCPUER,$TESTN,$ERRPC,0 

.WORD $TESTN,$ERRPC,$TMP0,STMP1 ,$RE65,0 
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NON-DEFAULT UNIBUS MAP JUMPER ( 

A231 

A232 033002 200 123 

A233 033067 120 117 

A234 033157 125 123 

A235 033250 125 116 

A236 0333A1 101 116 

A237 033A30 105 116 

A238 033A67 OAO OAO 

A239 033530 OAO 040 

A2A0 033567 OAO OAO 
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.SBTTL 


111 


JMPMSG: 


.ASCII 


123 






.ASCII 


105 






.ASCII 


111 






•ASCII 


10A 






-ASCII 


101 






.ASCII 


11A 






.ASCII 


125 






■ASCII 


OAO 






.ASCI2 
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SEQUENCE 134 



NON-DEFAULT UNIBUS MAP JUMPER MESSAGE 

<CRLF>?SI2E JUMPERS ON UNIBUS MAP ARE NOT IN THEIR OEFAULT?<CRLF> 

7P0SITI0N. MAP REGISTERS BETWEEN THE LOWEST AND HI6HEST?<CRLF> 

7USEABLE, AND ABOVE THE UNIBUS END NUMBER WILL BE TESTED. ?<CRLF> 

7UNIBUS MEMORY WILL BE ASSUMED TO BE BETWEEN UNIBUS BEGIN?<CRLF> 

?AND END REGISTER NUMBERS If BIT <5> IS SET IN THE SWR,?<CRLF> 

7ENA8LIN6 TEST «3 TO EXECUTE, ?<CRLF><CRLF> 

7 LOWEST HIGEST UNIBUS UNIBUS7<CRLF> 

? USABLE USABLE BEGIN END?<CRLF> 

7 REG# REG ff REG # REG # TEST #?<CRLF> 
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4241 

4242 033641 

4243 033646 

4244 033653 

4245 033661 

4246 033671 

4247 033677 

4248 033705 

4249 033711 

4250 033717 

4251 033724 
4252 



000 
002 
002 
002 
000 
002 
000 
002 
000 
000 
000001 



•S8TTL 

000 000 DF1 

002 001 DF4 

002 002 DF5 

002 000 DF6 

000 000 DF11 

002 000 DF14 

000 002 DF23 

000 000 DF201 

000 003 DF204 

000 002 DF210 



DATA FJELi)S 

.8YTE 0,0,0,0,0 

.tjYTE 2,2,1,0,0 

.BYTE 2,2,2,2,1,0 

.8YTE 2,2,0,0,0,0,1,0 

.BYTE 0,0,0,0,1,0 

.BYTE 2,2,0,0,1,0 

.BYTE 0,0,2,2 

.BYTE 2,0,0,0,0,0 

.BYTE 0,0,3,0,0 

.BYTE 0,0,2 
.END 
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SEQUENCE 136 



ABASE = 
AC0U1 = 
ACDW2 = 
ACPUOP=: 
ADDROR 
ADDUO = 
ADDU1 = 

ADDUIQ:: 

ADDW11=: 

ADDW12- 

ADDW13=: 

A0DW14= 

ADDW15= 

ADDW2 = 

ADDW3 = 

ADDWA s 

ADDU5 = 

ADDU6 = 

ADDW7 = 

ADDW8 = 

ADDW9 = 

ADEVCT= 

ADEVM = 

ADRAND 

ADREXT 

AENV = 

AENVM = 

AFATAL= 

AMADR1= 

AMADR2= 

AMADR3= 

AMADRA= 

AMAMS1 = 

A«AMS2= 

AMAMS3= 

AMAMSA= 

AMS6AD= 

A«S6LG= 

AMSGTY= 

AMTYP1= 

A«TYP2= 

AMTYP3= 

A«TYPA= 

APASS = 

APRIOR= 

APTCSU= 

APTENV= 

APTSIZ= 

APTSPOs 

ASWREG= 

ATESTN= 

AlWIT = 

AUSWR = 

AVECT1= 

AVECT2= 

BADCPU 

BADPC 



000000 
000000 
000000 
000000 
001236 
^77777 
\77777 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
001232 
003674 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000040 
C00001 

a')0200 

000100 
000000 
000000 

oooooc 

000000 
000000 
000000 
006607 
001340 



BITO : 
BITOO : 

BITOT = 
BIT02 = 
BIT03 : 
BIT04 = 
B1T05 = 
BIT06 = 
BIT07 : 
P1T08 : 
B1T09 = 
BJT1 : 
BIT10 : 

BJT11 : 

BIT12 = 

BIT13 : 

BIT14 ^ 

BIT15 = 

BIT2 : 

BIT3 : 

BIT4 : 

BITS : 

BIT6 : 

BJT7 = 

BIT8 = 

BIT9 = 

BPTVEC: 

BUPWIN 

CACHE '• 

CACHVE^ 

JASHSR 

CASH1 

CASH2 

CHARCT 

CHKLHA 

CHKPAT 

CLRMAP 

CMPE : 

CNTR 

CONTRL^ 

CPFLA6 

CPSAVE 

CPUER 

CPUERR^ 

CPUEXP 

CPUMSG 

CPUTYP 

CR 

CRLF : 

C TRAPS' 

CTRAPV^ 

DATA 

DATAND 

OATAOR 

DATEXT 

DATO = 

OATOB : 



000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000014 
001276 
177746 
000114 
005324 
005460 
005470 
005760 
005076 
005600 
002772 
177744 
001322 
177746 
003224 
020700 
003222 
1 77766 
001326 
006200 
007140 
000015 
000200 
000116 
000114 
001364 
001242 
001246 
003624 
100000 
140000 



ODJSP : 

DFMSG 

DF1 

DF11 

0F14 

0F201 

DF204 

0F210 

DF23 

DF4 

DF5 

DF6 

DHl 

OHIO 

DHil 

DH15 

D)^2 

DH^OI 

DH202 

DH203 

aH204 

DH205 

DH206 

0H207 

DH210 

DH211 

DH212 

DH213 

0H23 

DH24 

DH27 

DH? 

DH30 

DH4 

DH5 

DH6 

DJSPLA 

DISPRE 

DSA6LD 

DSWR : 

DTMS 

DTMSG 

0T1 

DT10 

DT11 

0T14 

DT15 

0T2 

0T201 

DT202 

DT20, 




177570 
006120 
033641 
033671 
033677 
033711 
03371 7 
033724 
033705 
033646 
033653 
033661 
030121 
030727 
030754 
031111 
030160 
031366 
031415 
031524 
031605 
031656 
031743 
032013 
032054 
032106 
032211 
032270 
031170 
031231 
031270 
030207 
031327 
030306 
030403 
030540 
001140 
000174 
005230 
177570 
005740 
005744 
032340 
032452 
032462 
032500 
032516 
032352 
032612 
032622 
032636 
032654 
•670 




032730 
032740 



DT212 

DT213 

DT23 

DT24 

DT26 

DT27 

DT3 

DT30 

DT4 

DT5 

DT6 

EADRES 

EADRS2 

EMTVEC: 

EMI 

EM10 

EM11 

EMI 2 

EMI 3 

EMU 

EMI 5 

EM16 

EMI 7 

EM2 

EM20 

EM201 

EM202 

EM203 

EM204 

EM205 

EM206 

EM207 

EM21 

EM210 

EM211 

EM212 

EM213 

EM214 

EM22 

EM23 

EM24 

EM25 

EM26 

EM27 

EM3 

EM30 

EM4 

EM5 

EM6 

EM7 

ENABLD 

ERRCNT 

ERROR ' 

ERRVEC= 

ERTYPE 

ER200 

EXTOUT 



032754 
032766 
032530 
032542 
032554 
032566 
032362 
032600 
032376 
032412 
032430 
005764 
005770 
000030 
024160 
025003 
025155 
025247 
025321 
025525 
025630 
025723 
026021 
024245 
026051 
026625 
026701 
026774 
027055 
027124 
027206 
027237 
026150 
027346 
027446 
027604 
027737 
030030 
026226 
026314 
026344 
026402 
026437 
026472 
024317 
026572 
024425 
024505 
024600 
024702 
005266 
001320 
164000 
000004 
002026 
001666 
005762 



FJBIT : 

FLAG 

FLOATR 

FTTHRU 

GMRMDl 

GMRMOD 

HIADRS= 

HIGEST 

HITMIS- 

HT 

IBSAVE 

lOTVEC^ 

JMPMSG 

KDPARO^ 

KDPARI^ 

KDPAR2^ 

KDPAR3= 

KDPAR4= 

KDPAR5^ 

KDPAR6= 

KDPAR7- 

KDPDRO= 

KDPDR1: 

KDPDR2! 

KDPDR3= 

KDPDR4: 

KDPDR5: 

KDP0R6= 

KDPDR7^ 

KERSTK^ 

KIPARO^ 

KIPAR1 = 

K1PAR2= 

KIPAR3: 

KIPAR4= 

KIPAR5= 

KJPAR6= 

KIPAR7: 

KIPDRO= 

KIPDRl: 

K1PDR2: 

KIPDR3= 

KIPDR4^ 

KIPDR5: 

KIPDR6' 

KIPDR7- 

KSP 

LF 

LKS 

LKVEC : 

LMAH 

LMAHI ' 

LHAL 

LMALOU: 

LOADRS' 

LOEFLG 

LOOP 



= 000100 

001324 

005774 

003532 

007043 

007046 

: 177742 

001260 

= 177752 

= 000011 

020702 

= 000020 

033002 

= 172360 

= 172362 

= 172364 

'^ 172366 

= 172370 

= 172372 

= 172374 

= 172376 

= 172320 

= 172322 

= 172324 

= 172326 

= 172330 

= 172332 

= 172334 

= 172336 

= 001100 

= 172340 

: 172342 

' 1/2344 

: 172346 

: 172350 

= 172352 

= 172354 

•• 172356 

= 172300 

: 172302 

= 172304 

: 172306 

= 172310 

= 172312 

= 172314 

^ 172316 

:X000006 

■• 000012 

: 177546 

: 000100 

001304 

: 177736 

001306 

: 177734 

: 177740 

004312 

010606 
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LOWEST 

LRE6L 

LRE6U 

MAINT = 

MAPADD 

MAPHO " 

MAPHOO= 

MAPH01= 

MAPH02= 

MAPH03= 

MAPH04= 

MAPH05= 

MAPH06= 

MAPH07= 

MAPH1 = 

MAPH10= 

MAPH11= 

MAPH12= 

MAPH13= 

MAPH14= 

MAPH15= 

MAPH16= 

nAPHl7= 

MAPH2 = 

MAPH20= 

MAPH21= 

MAPH22=: 

MAPH23= 

HAPH24= 

MAPH25= 

MAPH26= 

MAPH27= 

MAPH3 = 

MAPH30= 

MAPH31= 

MAPH32= 

MAPH33= 

MAPh34= 

MAPH35= 

MAPH36= 

nAPH37= 

MAPH4 = 

MAPH5 = 

MAPH6 = 

MAPH7 = 

MAPLG = 

MAPLOO= 

MAPL01= 

I1APL02= 

MAPL03= 

«APL04= 

I1APL05= 

I1APL06= 

MAPL07= 

MAPL1 = 

MAPL10= 

MAPL11= 



001256 
001 300 
001302 
177750 
004106 
170202 
170202 
170206 
170212 
170216 
170222 
170226 
170232 
170236 
170206 
170242 
170246 
170252 
170256 
170262 
170266 
170272 
170276 
170212 
170302 
170306 
170312 
170316 
170320 
170326 
170332 
170336 
170216 
170342 
170346 
170352 
170356 
170362 
170366 
170372 
170376 
170222 
170226 
170232 
170236 
170200 
170200 
170204 
170210 
170214 
1 70220 
170224 
170230 
170234 
170204 
170240 
170244 



MAPL12= 

HAPL13: 

MAPL14: 

MAPL15= 

MAPL16= 

MAPL17: 

MAPL2 = 

MAPL20= 

MAPL21= 

MAPL22= 

MAPL23= 

MAPL24: 

MAPL25: 

MAPL26= 

M/.PL27= 

MAPL3 : 

MAPL30= 

MAPL31= 

MAPL32= 

MAPL33= 

MAPL34: 

MAPL35: 

MAPL36= 

MAPL37= 

MAPL4 : 

HAPL5 : 

MAPL6 •' 

MAPL7 : 

MASK1 

MASK2 

MEMERR: 

MFPT : 

MMFLA6 

MMRHI 

MMRLOW 

MMRO = 

MMR1 : 

MMR2 = 

MMR3 : 

MMTOTM 

MMTRAP 

MMVEC = 

MRQUES 

NEWSUR 

NEXMEM: 

NEXT 

NOMORE 

NOnSG 

NUMOFK 

NXTTST 

OLDPC 

OLDPS 

OLDPSU 

PADRSH 

PADRSL 

PATANO 

PATCH 



170250 
170254 
170260 
170264 
170270 
170274 
170210 
170300 
170304 
170310 
170314 
170320 
170324 
170330 
170334 
170214 
170340 
170344 
170350 
170354 
1 70360 
170364 
170370 
170374 
170220 
170224 
170230 
170234 
005776 
006000 
177744 
000007 
003374 
001270 
001266 
177572 
177574 
177576 
172516 
020014 
003372 
000250 
006754 
006161 
000040 
003552 
006421 
013646 
001316 
001362 
001342 
001344 
001346 
001230 
001226 
001252 
007142 



PATEXT 

PATRNS 

PATTOR 

PCONTR 

PCPUER 

PJRQ : 

PJRQVE= 

PMAJNT 

PMBECD 

PMBE CF 

PMBECH 

PMBE CM 

PM6ECW 

PMMRO 

PMMRl 

PMMR2 

PPARER 

PRETST 

PRO 

PR1 

PR2 : 

PR3 : 

PR4 

PR5 = 

PR6 

PR7 : 

PS 

PSW 

PTMP2 

PWRMSG 

PWRVEC- 

RDCHR : 

RDLIN '• 

RDOCT • 

RELC22 

RESREG' 

RESVEC= 

RETRY 

RSJZE 

RIO = 

Rll : 

R12 

R13 

R14 

R15 

R3STAK 

R6 

R7 

SAVREG= 

SCOPE = 

SDPARO= 

SDPARl: 

SDPAR2= 

SDPAR3= 

SDPAR4= 

SDPAR5: 

SDPAR6= 



003650 

006102 

001254 

001334 

001330 

: 177772 

■■ 000240 

U01336 

002526 

002536 

002476 

002442 

002432 

001350 

001352 

001354 

001332 

005166 

: 000000 

: 000040 

: 000100 

: 000140 

■■ 000200 

• 000240 
■■ 000300 
: 000340 
= 177776 
: 177776 

005000 
023774 
■■ 000024 
: 104406 
•■ 104407 
: 104415 
011672 

• 104412 
: 000010 

001360 

001356 

XOOOOOO 

XOOOOOI 

X000002 

i:ooooo3 

X000004 
Z050Q05 
004314 
:X000006 
:X000007 
^ 104411 
■ 000004 




SDPAR7: 

SDPDRO^ 

SDPDRl: 

SDPDR2= 

SDPDR3^ 

SDPDR4: 

SDPDR5: 

SDPDR6^ 

SDPDR7^ 

SIPARO^ 

SIPARl^ 

SIPAR2: 

S1PAR3: 

SIPAR4: 

SJPAR5- 

SIPAR6^ 

SIPAR7: 

SIPDRO^ 

SIPDRl- 

SIPDR2^ 

SIPDR3^ 

SJPDR4J 

S.IPDR5: 

S PDR6: 

S^PDR7= 

SJZEHJ: 

SJZEJO 

SIZEJl 

SIZEJ2 

SIZELO^ 

SPECST 

SRO 

SRI 

SR2 

SR3 

SSP 

STACK = 

START 

STKLMT: 

SUPSTK: 

SWR 

SWREG 

SUO 

SWOO = 

SWOl = 

SU02 - 

SW03 = 

SU04 = 

SU05 : 

SU06 ' 

SW07 : 

SW08 '• 

SW09 : 

SUl 

SW10 = 

SW11 = 

SW12 = 



' 172276 
'• 172220 

■• \mi2 

•■ 172224 

'■ 172226 

'■ 172230 

■■ 172232 

'■ 172234 

= 172236 

'■ 172240 

■■ Mll^l 

•• Mllkk 

: 172246 

= 172250 

^ 172252 

'- MllSk 

'• 172256 

'■ 172200 

-• 172202 

= 172204 

-■ 172206 

= 172210 

■■ 172212 

-• M22\t^ 

■• 172216 

: 177762 
012744 
013154 
013402 

: 177760 
006002 

■ 177572 
■■ 177574 

■ M757i> 
172516 

X000006 
: 001100 
010000 
177774 
'' 000700 
001136 
000176 
000001 
000001 
QQ0002 
000004 
000010 
000020 
000040 
100 
^00 
.00 
001000 
Q0QQ02 
002000 
004000 
010000 




SW13 = 

SW14 r 

SW15 = 
SW2 = 
SW3 = 
SW4 = 
SW5 = 
SW6 = 
SW7 = 
SW8 = 
SW9 - 
SYSTJD= 
T81T = 
TBI TO = 
TBITOF 
T6JTR = 
TBITRE 
TBITVE= 
TCPMRA 
TIMEOU 
TIMOUT= 

tkve: = 

T0FLA6 

TOMSG 

TPVEC = 

TRAPVE= 

TRTVEC= 

TSTLOC 

TSTl 

TSTIO 

TSTll 

TST12 

TST13 

TST14 

TST15 

TST16 

TST17 

TST2 

TST20 

TST21 

TST22 

TST23 

TST24 

TST25 

TST26 

TST27 

TST3 

TST30 

TST31 

TST32 = 

TST4 

TST5 

TST6 

TST7 

TYPDAT= 

TYPDS = 

TYPE = 



0200QO 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
177764 
000020 
104413 
002726 
104414 
002754 
000014 
004416 
003030 
000020 
000060 
003032 
006261 
000964 
000034 
000014 
003474 
010676 
014616 
015072 
015140 
015174 
015334 
015362 
015420 
015450 
011122 
015610 
015744 
016220 
016266 
016474 
016540 
016702 
017036 
011444 
017164 
017412 
021576 
011762 
012242 
01 2630 
13712 
02244 
104405 
104401 
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SYMBOL 


TABLE 














TYPOC = 


104A02 


USESTK= 


000600 


$D0A6N 


022034 


$M6ADR 


020002 


TYPON = 


10AA04 


USP = 


X000006 


$DT8L 


023176 


SMFLG 


021572 


TYPOS = 


10AA03 


YESMS6 


013542 


$ENDAD 


022024 


$MNEW 


023507 


TYPVAD 


002542 


SAPTHD 


020000 


SENDCT 


021644 


$MSGAD 


020156 


UBADDR 


002650 


$ATYC 


021354 


SENULL 


022100 


$MSGLG 


020160 


UBMAVA 


006125 


SATYI 


021330 


$ENV 


020162 


SMSGTY 


020142 


IBMEND 


0061 74 


$ATy3 


021336 


SENVM 


020163 


$MSWR 


023476 


IBHHI 


001264 


$ATy4 


021346 


$EOP 


021576 


SMTYPI 


020173 


IBMLOU 


001262 


SAUTOe 


001132 


SEOPCT 


021636 


$MTYP2 


020177 


UBMSU 


015236 


$8ASE 


020216 


SERFLG 


001101 


$MTYP3 


020203 


UBM24L 


001310 


$BDADR 


001120 


SERMAX 


001113 


$MTYP4 


020207 


UGn24P 


001314 


SBDDAT 


001124 


$ERROR 


020704 


SMXCNf 


020676 


UBfl24U 


001312 


SBELL 


001216 


%ERRPC 


001114 


$NULL 


001152 


UBRHI 


001274 


$CDW1 


020222 


SERRTB 


001366 


$NWTST= 


000001 


UGRLOU 


001272 


$CDU2 


020224 


$ERTTL 


001110 


$OCNT 


022766 


UDPARO= 


177660 


$CHARC 


022540 


SESCAP 


001214 


SOCTVL 


024142 


UDPAR1= 


177662 


$CLR.T 


022014 


SETABL 


020162 


$OMODE 


022770 


UDPAR2= 


177664 


SCMTAG 


001100 


SETEND 


020266 


$OVER 


020662 


UDPAR3= 


177666 


$CM1 = 


000006 


SFATAL 


020144 


iPASS 


020150 


UDPARA= 


177670 


$CM2 = 


000014 


$FFLG 


021574 


SPASTM 


020006 


UDPAR5= 


177672 


$CM3 = 


000006 


SFJLLC 


001154 


$PURAD 


023750 


UDPAR6= 


177674 


$CM4 = 


300C07 


SFJLLS 


001153 


$PURDN 


023610 


UDPAR7= 


177676 


•ICNTLG 


023471 


$GDADR 


001116 


$PURMG 


023744 


UDPDRO= 


177620 


i^CNTLU 


023464 


$6DDAT 


001122 


SPWRUP 


023662 


UDPDR1= 


177622 


ICPUOP 


020170 


$6ET42 


021776 


$QUES 


001222 


UDPDR2= 


177624 


$CRLF 


001223 


$HD = 


000000 


$RDCHR 


023216 


UDPDR3= 


177626 


tOBlK 


023206 


SHJSTS 


020000 


$RDLIN 


023346 


UDPDRA= 


177630 


$DB20 


024040 


SHJOCT 


005736 


SRDOCT 


005630 


UDPDR5= 


177632 


$CDWO 


020226 


SJCNT 


001102 


SRDSZ = 


000010 


UDPDR6= 


177634 


$DDW1 


020230 


$JLLUP 


023766 


$REGAD 


001156 


UDPDR7= 


177636 


SDDU10 


020252 


SINTAG 


001133 


SREGO 


001160 


UIPARO=: 


177640 


$DDU1 1 


020254 


$ITE«B 


001112 


$REG1 


001162 


UIPAR1 


177642 


$DDU12 


020256 


$LF 


001224 


$REG2 


001164 


UJPAR2= 


177644 


$L, W13 


020260 


SLFLG 


021573 


$REG3 


001166 


UIPAR3= 


177646 


$DDW14 


020262 


$LOOP 


022072 


$REG4 


001170 


U1PARA= 


177650 


$DDW15 


020264 


SLPADR 


001104 


SREG5 


001172 


U1PAR5= 


177652 


$DDU2 


02023.? 


SLPERR 


001106 


$RESRE 


022142 


UIPAR6= 


177654 


$DDU3 


02025^ 


SMADR1 


020174 


SRTNAD 


022074 


UIPAR7= 


177656 


$DDW4 


o?:)2}^6 


$MADR2 


020200 


SRTRN 


022070 


UIPDRO= 


177600 


$DDU5 


0202^0 


$MADR3 


020204 


SSAVRE 


022104 


UIPDR1= 


177602 


$DDW6 


0202s2 


$NADR4 


020210 


$SAVR6 


023772 


UIPDR2= 


177604 


$DDW7 


020244 


SMAIL 


020142 


SSCOPE 


020266 


UIPDR3= 


177606 


$DDU8 


020246 


SMAMSl 


020172 


$SETUP= 


000037 


UIPORA= 


177610 


$DDU9 


020250 


SMAMS? 


020176 


$SSWR 


000176 
U7777 


UIPDR5= 


177612 


SDEVCT 


020152 


$MA«S3 


020202 


$STUP = 


UIPDR6= 


177614 


SDEVM 


020220 


$MAMS4 


020206 


ISVLAD 


020626 


UIPDR7= 


177616 














. ABS. 


033727 ( 
OOOUOO 1 


300 
301 








t 




ERRORS 


DETECTED.- 















SEQUENCE 138 



$SVPC = 

SSWR = 

$SWREG 

$SWRMK= 

$TB1T 

STESTN 

STIMES 

STK6 

$TKS 

$TMPO 

$TMP1 

$TMP2 

$TMP3 

$TMP4 

$TMP5 

$TMP6 

$TN = 

$TPB 

STPFLG 

$TPS 

STRAP 

$TRAP2 

$TRP = 

STRPAD 

$TST« 

STSTNM 

STTYIN 

STYPDS 

STYPE 

STYPEC 

STYPEX 

STYPOC 

STYPON 

$TYPOS 

$UNIT 

SUNITM 

SUSUR 

$VECT1 

$VECT2 

$XOFF = 

$XON = 

SXTSTR 

$$6ET4= 

SOFILL 

.$X = 

.$Y = 



000204 
177400 
020164 
000340 
022076 
020146 
001212 
001144 
001142 
001174 
001176 
001200 
001202 
001204 
001206 
001210 
000032 
001150 
001155 
001146 
023520 
023542 
000016 
023554 
020004 
001100 
0234.';4 
022772 
022200 
022412 
022542 
032570 
022604 
022544 
020154 
020010 
020166 
020212 
020214 
000023 
000021 
020372 
000001 
022767 
020000 
002026 
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SEQUENCE 139 


svr^oL 


CROSS REFERENCE 






CREF V01 


SYMBOL 


VALUE 


REFERENCES 






ABASE 


= 000000 


91-4095 


91-4095 




ACDU1 


= 000000 


91-4095 


91-4095 




ACDU2 


= 000000 


91-4095 


91-4095 




ACPUOP 


= 000000 


91-4095 


91-4095 




ADDROR 


001236 


#21-1496 


*41-2228 


*4 1 -2243 *92-4097 *92-4097 1 06-4208 1 06-4209 1 06-421 1 06-421 3 


ADOUO 


= Mllll 


#89-4065 


91-4095 


91-4095 


ADDU1 


= 177777 


#89-4066 


91-4095 


91-4095 


ADDW10 


= 000000 


91-4095 


91-4095 




ADDU11 


= 000000 


91-4095 


91-4095 




ADDW1? 


= 000000 


91 ^095 


91-4095 




ADDU 1 3 


= 000000 


91-4095 


91-4095 




ADDUU 


= 000000 


91-4095 


91-4095 




ADDW15 


= 000000 


91-4095 


91-4095 




ADDW2 


= 000000 


91-4095 


91-4095 




ADDU3 


= 000000 


91-4095 


91-4095 




ADDWA 


= 000000 


91-4095 


91-4095 




ADDU5 


= 000000 


91-4095 


91-4095 




ADDU6 


- 000000 


91-4095 


91-4095 




ADDW7 


= 000000 


91-4095 


91-4095 




ADDW8 


= 000000 


91-4095 


91-4095 




ADDU9 


= 000000 


91-4095 


91-4095 




ADEVCT 


= 000000 


91-4095 


91-4095 




ADEVM 


= 000000 


91-4095 


91-4095 




ADRAND 


001232 


#21-1496 


*41-2230 


*41-2245 *92-4097 *92-4097 ' 106-4208 106-4209 106-4210 106-4213 


ADREXT 


003674 


35-2057 


#41-2220 


56-2828 57-2897 59-2975 68-3332 68-3374 69-3445 


AENV 


= 000000 


91-4095 


91-4095 




AENVM 


= 000000 


91-4095 


91-4095 




AFATAL 


= 000000 


91-4095 


91-4095 




AMA0R1 


= 000000 


91-4095 


91-4095 




AMADR2 


=: 000000 


91-4095 


91-4095 




AMADR3 


= 000000 


91-4095 


91-4095 




AMADR4 


= 000000 


91-4095 


91-4095 




AMAMS1 


= 000000 


91-4095 


91-4095 




AMAMS2 


= 000000 


91-4095 


91-4095 




AMAMS3 


= 000000 


91-4095 


91-4095 




AKAMSA 


= 000000 


91-4095 


91-4095 




AMSGAD 


= 000000 


91-4095 


91-4095 




AMSGLG 


= 000000 


91-4095 


91-4095 




AMSGTY 


= 000000 


91-4095 


91-4095 




AHTYP1 


= 000000 


91-4095 


91-4095 




AMTYP2 


= 000000 


91-4095 


91-4095 




A^TYP3 


= 000000 


91-4095 


91-4095 




AMTYP4 


= 000000 


91-4095 


91-4095 




APASS 


= 000000 


91-4095 


91-4095 




APR I OR 


= 000000 


91-4095 






APTCSU 


= 000040 


#94-4101 


97-4107 




APTtNV 


= 000001 


93-4099 


94-4101 


#94-4101 97-4107 


APTSiZ 


^ 000200 


#94-4101 






APTSr^O 


= 000100 


94-4101 


#94-4101 


97-4107 


ASWREG 


= 000000 


91-4095 


91-4095 




ATESTN 


= 000000 


91-4095 


91-4095 




AUNIT 


^ 000000 


91-4095 


91-4095 
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SEQUENCE 140 








SYMBOL 


CROSS REFERENCE 








CREF V01 








SYMBOL 


VALUE 


REFERENCES 














AUSWR 


= 000000 


91-4095 


91-4095 












AVECT1 


= 000000 


91-4095 


91-4095 












AVECT2 


= 000000 


91-4095 


91-4095 












BADCPU 


006607 


#53-2625 


54-2713 












BADPC 


001340 


#21-1496 


*36-2092 


*37-2128 


106-4205 


106-4206 


106-4207 




BITO 


= 000001 


#17-1489 


38-2155 


38-2160 


58-2936 


62-3090 


63-3128 


79-3745 79-3751 


BITOO 


= 000001 


#17-1489 


17-1489 


50-2487 


92-4097 


92-4097 


93-4099 


93-4099 


BIT01 


= 000002 


#17-1489 


17-1489 












BIT02 


= 000004 


#17-1489 


17-1489 












BIT03 


= 000010 


#17-1489 


17-1489 












BIT04 


= 000020 


#17-1489 


17-1489 












BIT05 


= 000040 


#17-1489 


17-1489 












BIT06 


= 000100 


#17-1489 


17-1489 


50-2505 


50-2509 








BIT07 


= 000200 


#17-1489 


17-1489 


50-2524 










B1T08 


= 000^00 


#17-1489 


17-1489 


50-2488 


50-2540 


92-4097 






BIT09 


=: 001000 


#17-1489 


17-1489 


55-2781 


57-2909 


59-2988 


92-4097 


93-4099 


Bin 


= 000002 


#17-1489 














BIT10 


= 002000 


#17-1489 


93-4099 












BIT11 


= 004000 


#17-1489 
92-4097 


42-2284 


44-2364 


46-2429 


59-2957 


68-3320 


68-3339 73-3526 


BIT12 


= 010000 


#17-1489 


50-2489 


50-2541 


95-4103 








BIT13 


= 020000 


#17-1489 


93-4099 












BIT14 


= 040000 


#17-1489 


83-3851 


84-3877 


84-3882 


85-3904 


92-4097 




BIT15 


= 100000 


#17-1489 


45-2404 












BIT2 


= 000004 


#17-1489 














BIT3 


= 000010 


#17-1489 














BIT4 


= 000020 


16-1460 


#17-1489 


32-1977 


58-2937 








B1T5 


= 000040 


#17-1489 


34-2011 


63-3127 


69-3412 


70-3473 


72-3510 


87-3974 


BIT6 


= 000100 


#17-1489 


78-3690 












BIT7 


= 000200 


#17-1489 














BITS 


= 000400 


#17-1489 














BIT9 


= 001000 


#17-1489 


56-2834 


61-3060 


68-3349 


69-3456 


81-3823 


83-386^ 84-3891 


BPTVEC 


= 0000 V. 


#17-1489 














BUPUiN 


001276 


#21-1496 


*65-3218 


68-3367 


68-3395 








CACHE 


= 177746 


#16-1464 
*50-2540 


*50-2488 
50-2541 


50-2489 
*77-3652 


*50"2502 
*78-3709 


*5Q-2505 


*50-2509 


50-2513 *50-2524 


CACHVE 


= 000114 


#17-1489 














CASHSR 


005324 


#50-2487 


77-3651 


78-3701 










^ASHI 


005460 


#50-2512 


*77-3649 


*78-3699 










CASH2 


005470 


#50-2516 


*77-3650 


•78-3700 










CHARCT 


005760 


#52-2599 














CH<LMA 


005076 


38-2168 


42-2281 


44-2361 


#46-2425 


68-3326 


68-3345 


68-3354 


CHKPAT 


005600 


#50-2547 


56-2817 


56-2831 










CLRMAP 


002772 


#34-2008 


57'2BB2 


60-3012 


68-3284 








CMPE 


= 177744 


#16-1465 


*50-2510 


*50-2534 










CNTR 


001322 


#21-1496 














CONTRL 


= 177746 


#17-1489 














CPFLAG 


003224 


#36-2083 


W36-2099 


*36-210? 


*36-?107 


*54-2740 


*93-4099 




CPSAVE 


020700 


29-1900 


*92-4097 


92-4097 


#92-4097 


*93-4099 


93-4099 




CPUER 


003222 


#36-2082 


54-2734 


55-2787 










CPUERR 


= 177766 


#17-1489 


35-2042 


*35-2043 


36-2091 


*36-2108 


*54-2743 


*93"4099 


CPUEXP 


001326 


#21-1496 


35-2039 


35-2044 


35-2053 


36-2093 


36-2097 


36-2106 *44-2345 



90-4078 



85-3917 
*50-2535 



*44-2350 



CKKUAE 



CREATED BY fWCftO ON 11-JAN-82 AT 



SYMBOL CROSS REFERENCE 
SYMBOL VALUE 



CPUMSG 


006200 


CPUTYP 


007V.0 


CR 


= 000015 


CRLF 


= 000200 


CTRAPS 


= 000116 


CTRAPV 


= 0001 K 


DATA 


001364 


DATAND 


001 2A2 


DATAOR 


001246 


DATEXT 


003624 


DATO 


= 1G0000 


DATOe 


= 140000 


DDISP 


= 177570 


DFMS6 


006120 


DF1 


033641 


DFll 


033671 


DFH 


033677 


DF201 


033711 


DF20A 


033717 


DF210 


033724 


DF23 


033705 


DFA 


033646 


DF5 


033653 


DF6 


033661 


DHl 


030121 


DH10 


030727 


omi 


030754 


DHl 5 


031111 


DH2 


030160 


DH201 


031366 


DH202 


031415 


DH203 


031524 


DH20A 


031605 


DH205 


031656 


0H206 


031743 


DH207 


032013 


0H210 


032054 


0H211 


032106 


DH212 


032211 


DH213 


032270 


DH23 


031170 


OHZli 


031231 



REFERENCES 

*44"2353 

*59-2990 

*62'3101 

•65-3215 

#53-2620 

35-2036 

jCI 7-1489 

1^17-1489 

53-2625 

104-4162 

105-4193 

107-4237 

#16-1468 

#16-1467 

#21-1496 

#21-1496 

#21-1496 

#39-2185 

#84-3874 

#85-3901 

#17-1489 

52-2597 

22-1501 

24-1608 

#108-4242 

23-1555 

23-1576 

26-1658 

26-1677 

26-1702 

24-1620 

22-1521 

22-1528 

22-1535 

22-1499 

23-1546 

23-1552 

23-1580 

22-1505 

26-1656 

26-1662 

26-1669 

26-1675 

26-1681 

26-1688 

26-1694 

26-1700 

27-1706 

#105-4200 

27-1721 

24-1618 

24-1624 



*44-2355 

*59-2992 

*63-3137 

♦68-3312 

*54-2692 

35-2049 

97-4107 

52-2617 

53-2626 

104-4164 

105-4198 

107-4237 

50-2496 

50-2495 

44-2346 

*39-2187 

*39-2185 

56-2824 

84-3881 

85-3908 

21-1496 

#52-2616 

22-1507 

24-1614 

#108-4246 

26-1684 

26-1671 

#108-4250 

#108-4251 

#108-4248 

#108-4243 

23-1590 

23-1541 

#105-4169 

23-1559 

23-1573 

#105-4182 

#105-4170 

#105-4188 

#105-4189 

#105-4191 

#105-4192 

#105-4193 

#105-4195 

#105-4196 

#105-4197 

27-1714 

#105-4184 
24-1630 



11:32 PAGE 3 

SEQUENCE 141 

CREF vol 



*54-2736 

*60-3017 

*63-3140 

•68-3314 

54-2693 

36-2095 

97-4107 

52-2619 

53-ci6?8 

105-4171 

105-4200 

107-4238 

•50-2498 

•50-2497 

•44-2381 

•56-2861 

•56-2859 

57-2901 



22-1514 
24-1626 



#108-4247 
26-1690 



•59-2962 
•60-3019 
•63-3148 
•90-4082 
•5''.-2698 
#53-2630 

53-2620 
53-2629 
105-4173 
107-4232 
107-^239 
•50-2539 
*50-2538 
•44-2388 
•92-4097 
•92-4097 
61-3051 



23-1548 
24-1632 



L 11 



•59-2964 
•60-3032 
•64-3173 
•90-4087 
54-2699 
•54-2684 

53-2620 

97-4107 

105-4175 

107-4232 

107-4240 



•44-2389 
106-4209 
106-4209 
68-3335 



23-1561 
24-1638 



•59-2967 
•60-3034 
*64-3179 
106-4205 



•59-2969 
•60-3044 
•64-3182 
106-4214 



•59-2977 
•61-3064 
*65-3209 
106-4229 



•54-2685 54-2695 55-2755 



53-2621 
97-4107 
105-4177 
107-4233 



•44-2390 
106-4210 
106-4210 
69-3448 



23-1569 
24-1644 



53-2622 

104-4134 
105-4180 
107-4234 



106-4212 
106-4212 



53-2623 

104-4138 
105-4182 
107-4235 



106-4213 
106-4213 



•59-2979 
•62-3098 
•65-3212 



77-3638 

53-2624 

104-4139 
105-4189 
107-4236 



23-1583 
25-1649 



24-1595 
27-1 723 



24-1601 
2/-1729 



26-1 696 27-1 709 27-1 71 7 #1 08-4249 



#108-4244 

26-1665 #108-4245 

23-1567 24-1593 

23-1587 #105-4180 



24-1599 24-1606 24-1612 #105-4179 



#105-4198 
#105-4202 
24-1636 #105-4185 



r 



CKKUAE 

SYMBOL 

SYMBOL 

DH27 

DH3 

DH30 

DH4 

DH5 

DH6 

DISPLA 

DISPRE 

DSABLD 

DSUR 

DIMS 

OTMSG 

on 

OTIC 

DT11 

DTK 

DTI 5 

0T2 

DT201 

DT202 

DT203 

DT20A 

DT205 

DT206 

DT207 

DT210 

DT211 

DT212 

DT213 

DT23 

DT24 

DT26 

0T27 

D13 

DT30 

OU 

DT5 

DT6 

EADRES 



CREATED BY MACRO ON 11-JAN-82 AT 



CROSS REFERENCE 
VALUE 

031270 

030207 

031327 

030306 

030A0:< 

03054U 

001 UO 

0001 7A 

005230 
= i//^.7n 

005740 
0057A4 
032340 
032452 
032462 
032500 
032516 
032352 
032612 
032622 
032636 
032654 
032670 
032702 
032716 
032730 
032740 
032754 
032766 
032530 
032542 
031'554 
032566 
032362 
052600 
032376 
032412 
032430 
005764 



EADRS2 005770 



EMTVEC 

EMI 

EM10 

EM11 

EM12 

EMI 3 

EMU 

EM 1 5 

EM16 



000030 
024160 
025003 
025155 
025247 
025321 
02552!i 
025630 
02S72Z 



REFERENCES 

24-1642 

22-1511 

25-1647 

22-1518 

22-1525 

22-1532 

#?1-1496 

#18-1492 

#48-2459 

#17-148C 

#52-2597 
52-2597 
22-1500 
23-1547 
23-1554 
23-1575 
23-1582 
22-1506 
26-1657 
26-1664 
26-1670 
26-1676 
26-1683 
26-1689 
26-1695 
26-1701 
27-1708 

#106-4229 
27'M22 
24-1619 
24-1625 
24-1637 
24-1643 
22-1513 
25-1648 
22-1520 
22-1527 
22-1534 

*M-2235 

#52-2601 
106-4224 

#52-2602 
106-4222 

#17-1489 
22-1498 
23-1544 
23-1551 
23-1553 
23-1564 
23-1572 
23-157V 
23-1586 



11:32 PAGE 4 
SEQUENCE 142 

CREF V01 



M 11 



#105-4186 
#105-4171 
#105-4187 
#105-4173 
#105-4175 
23-1538 
47-2447 

63-3141 

21-1496 

66-3227 

#52-2598 

#106-4205 

23-1560 

#106-4212 

23-1589 
#106-4214 
#106-4206 
#106-4220 
#106-4221 
#106-4222 
#106-4223 
#106-4224 
#106-4225 
#106-4226 
#106-4227 
27-1716 

27-1728 
#106-4215 

24-1631 
#106-4217 
#106-4218 
#106-4207 
#106-4219 
#106-4208 
#106-4209 

23-1540 
*41-2236 
*59-2987 

106-4225 
*57-2902 

106-4224 

54-2655 
#104-4127 
#104-4134 
#104-4136 
#104-4137 
#104-4138 
#104-4141 
#104-4142 
#104-4143 



#105-4177 
92-4097 

64-3183 



23-1568 
#106-4213 



93-4099 
65-3207 

24-1594 24-1600 24-1607 24-1613 #106-4211 



#106-4228 
#106-4230 
#106-4216 



#106-4210 
41-2247 

*79-3762 
106-4226 

*69-3449 

54-2655 



*41-2249 
*79-3763 

106-4227 
*69-3450 



*41-2250 
*88-4045 
106-4228 
*79-3760 



*42-2?92 *42-2293 *44"2371 *44-2372 
*92-4097 106-4215 106-4220 106-4221 

*79-3761 *92-^097 106-4215 106-4221 



CKKUAE 


CREATED BY 


MACRO ON 1 


.-JAN-b2 AT 


11:32 


PAGE 5 


N 11 


















SEQUENCE 143 












SYMBOL 


CROSS REFERENCE 








CREF V01 












SYMBOL 


VALUE 


REFERENCES 


















EMI 7 


C26021 


24-1592 


#104-4144 
















EM2 


024245 


22-1504 


#104-4128 
















EM20 


026051 


24-1598 


#104-4145 
















EM201 


026625 


26-1655 


#104-4154 
















EM202 


026701 


26-1661 


#104-4155 
















EM203 


026774 


26-1668 


#104-4156 
















EM204 


027055 


26-1674 


#104-4157 
















EM205 


027124 


26-1680 


#104-4158 
















EM206 


027206 


26-1687 


#104-4159 
















EM207 


027237 


26-1693 


#104-4160 
















EM21 


026150 


24-1604 


#104-4146 
















EM210 


027346 


26-1699 


#104-4161 
















EM211 


027446 


27-1704 


#104-4162 
















EM212 


027604 


27-1712 


#104-4164 
















EM213 


027737 


27-1720 


#104-4166 
















EM214 


0300:i0 


27-1726 


#104-4167 
















EM22 


026226 


24-1611 


#104-4147 
















EM23 


026314 


24-1617 


#104-4148 
















EM2A 


026344 


24-1623 


#104-4149 
















EM25 


026402 


24-1629 


#104-4150 
















EM26 


026437 


24-1635 


#104-4151 
















EM27 


026472 


24-1641 


#104-4152 
















EM3 


024317 


22-1510 


#104-4129 
















EM30 


026572 


25-1646 


#104-4153 
















EMA 


024425 


22-1517 


#104-4130 
















EM5 


024505 


22-1524 


#104-4131 
















EM6 


024600 


22-1531 


#104-4132 
















EM7 


024702 


23-1537 


#104-4133 
















ENA6LD 


005266 


#49-2474 


63-3149 


64-3177 


65-3216 












ERRCNT 


001320 


#21-1496 


29-1791 


29-1798 


*35-2051 


*36-2105 


*55-2757 


55-2759 


*55-2778 


55-2783 






55-2789 


*55-2792 


*56-2809 


56-2841 


*56-2845 


*56-2862 


57-2915 


*57-2918 


61-3065 






*61-3068 


^68-3291 


*68-3315 


68-3398 


*68-3401 


69-5459 


*69-3462 


*87-3986 


*90-4074 






*92-4097 


^93-4099 


106-4208 


106-4209 


106-4210 


106-4212 


106-4213 






ERROR 


=: 104000 


#16-1473 


#17-1489 


35-2047 


35-2059 


36-2100 


36-2103 


37-2134 


55-2793 


56-2833 






56-2848 


56-2850 


57-2908 


57-2919 


59-2986 


60-3025 


61-3059 


61-3069 


61-3072 






62-3105 


63-3142 


63-3146 


63-3150 


64-3178 


64-3185 


65-3208 


65-3217 


68-3348 






68-3375 


68-3;02 


69-3455 


69-3463 


70-3478 


71-3493 


72-3515 


74-3570 


75-3588 






76-3601 


77-3655 


78-3704 


78-3708 


79-3765 


80-3786 


81-3802 


81-3822 


82-3839 






83-3863 


84-3890 


85-3916 


87-3984 


88-4046 










ERRVEC 


= 0C0004 


#17-1489 


*54-2734 


*54-2735 


*55-2754 


*55-2787 


92-4097 


*92-4097 


*92-4097 


*92-4097 


ERTVPE 


002026 


#29-1777 


93-4099 
















ER200 


001666 


#26-1650 


29-1806 


29-1809 














EXTOUT 


005762 


#52-2600 


















FJBIT 


= 000100 


#80-3779 


80-3782 


80-3785 


81-3797 


81-3798 


81-3801 


82-3834 


82-3835 


82-3838 


FLAG 


001324 


#21-1496 


















FLOATR 


005774 


38-2150 


*38-2155 


*38-2160 


*38-2162 


48-2463 


49-2478 


#52-2603 






FTTHRU 


003532 


#38-2158 


♦63-3133 
















GMRMD1 


007043 


#53-2628 


*55-2768 


55-2769 


55-2770 












GrtRMOD 


007046 


#53-2629 


55-2772 
















GNS 


= ****** 


18-1492 


18-1492 


95-4103 


95-4103 


1 n-4115 


101-4115 


101-4115 


101-4115 


101-4115 






101-4115 


101-4115 


101-4115 


101-4115 


\ 1-4115 


101-4115 


101-4115 


101-4115 


101-4115 






101-4115 


101-4115 


101-4115 


101-4115 


101-4115 


101-4115 


101-4116 


101-4116 


101-4117 



CKKUAE 



CREATED BY MACRO ON 11-JAN-82 AT 



SYMBOL CROSS REFERENCE 
SYMBOL VALUE 



HIADRS 


= ^777^2 


HIGEST 


001260 


HITMIS 


= 177752 


HT 


= 000011 


IBS AVE 


020702 


lOTVEC 


= 000020 


JMPMS6 


033002 


KDPARO 


= 172360 


KDPAR1 


= 172362 


KDPAR2 


= 17236<. 


KDPAR3 


= 172366 


KDPARA 


= 172370 


KDPAR5 


= 172372 


KDPAR6 


= 17237A 


KDPAR7 


= 172376 


KDPDRO 


= 172320 


KDPDR1 


= 172322 


KDP0R2 


= 172324 


KDPDR3 


= 172326 


KDPDRA 


= 172330 


KDPDR5 


= 172332 


KDP0R6 


= 17233A 


KDPDR7 


= 172336 


KERSTK 


= 001100 


KIPARO 


= 1723A0 


KIPAR1 


= 172342 


KIPAR2 


= 1723A4 


riPAR3 


= 172346 


KIPARA 


= 172350 


KIPAR5 


= 172352 


KIPAR6 


= 172354 


KIPAR7 


= 172356 


KIPDRO 


= 172300 


KIPDR1 


=: 172302 


KIP0R2 


= 172304 
= 172306 
= 172310 


KIP0R3 


KIP0R4 


KJPDR5 


= 172312 


KiP0R6 


= 172314 


KIP0R7 


= 172316 


KSP 


=X000006 



REFERENCES 
101-4117 
^17-1489 
#21-1496 
*1 7-1 489 
#17-1489 
#93-4099 
#17-1489 
66-3226 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1480 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
*83-3866 
#17-1489 
#17-1489 
64-3165 
*68-3292 
68-3362 
*81-3814 
#17-1489 
#17-1489 
*59-2995 
*69-3439 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
29-1 8S3 
30-1932 
31-1960 



101-4118 
♦64-3167 

97-4107 
*93-4099 

54-2655 
#107-4232 



30-1922 

*73-3553 

69-3447 

84-3875 

45-2401 

*44-2338 

♦64-3171 

*68-3305 

*68-3364 

81-3815 

*60-3027 

*42-2275 

*59-2998 

69-3440 

35-2056 

58-2924 



•29-1777 

*29-1854 

♦3Q-1933 

32-1978 



11:32 PAGE 6 
SEQUENCE 144 

CREf V01 



B 12 



101-4118 

*64-3188 

97-4107 
93-4099 
54-2655 



53-2929 
*77-3637 

79-3747 
*84-3876 
A45-2402 

44-2378 
*64-3174 
*68-3306 

68-3365 
•81-3826 
•60-3029 
*4<-2339 
*60-3014 

69-3444 

56-2827 



•29-1781 

•29-1 

•3Q-1 

32-1980 



64-3189 
•93-4099 



'9-1794 

f9-1878 

)-1938 

M981 



65-3199 
•93-4099 



68-3302 68-3388 81-3805 87-3979 



93-4099 93-4099 93-4099 93-4099 



•73-3555 


•77-3636 


•79-3750 


•87-3990 






•87-3991 












•79-3748 


•79-3764 


•79-3766 


•79-3771 


83-3847 


•83-3848 


•84-3893 


85-3902 


•85-3903 


•85-3919 






•45-2407 


54-2719 


•54-2720 


•54-2725 


54-2726 


•54-2728 


•44-2382 


57-2896 


•63-3130 


*63-3143 


63-3144 


64-3158 


64-3175 


64-3188 


•65-3204 


65-3205 


65-3218 


65-3219 


68-3309 


68-3324 


68-3331 


68-3343 


68-3358 


68-3560 


68-^367 


•69-3413 


*69-3420 


69-3421 


81-3809 


•81-3810 


•90-4075 


•90-4080 


106-4218 








61-3070 
59-2953 


•61-3073 


•62-3094 
•59-2959 


106-4219 






•59-2954 


59-2961 


59-2974 


•59-2993 


•60-3022 


60-3027 


•60-3039 

•88-4027 

68-3373 


62-3091 


69-3426 


69-3429 


*88-4018 


*88-4025 


•88-4052 






57-2899 


68-3334 









'9-18 
13-199 



*29-1831 
♦29-1891 
»31-1953 
*35-203<l 



;i"l95S 
15-2035 



12-1 S'i 5 

10-1915 

11-1956 

*55-2061 



•29-1851 
*30-1930 
*31-1960 
♦35-2062 



CKKUAE 


CREATED BY 


MACRO ON 11-JAN-82 AT 


11:32 


PAGE 7 


C 12 








~ 










SEQUENCE 145 












SYMBOL 


CROSS REFERENCE 








CREF vol 












SYMBOL 


VALUE 


REFERENCES 






















*36-2089 


*36-2090 


*36-2109 


*36-2110 


37-2128 


*37-2129 


*37-2130 


*37-2137 


*37-2138 


LF 


= 000012 


1^17-1489 


97-4107 


97-4107 














LKS 


= 177546 


#17-1489 


















LKVEC 


= 000100 


#17-1489 


















LMAH 


001304 


#21-1496 


*68-3322 


68-3327 


*68-3341 


68-3346 


68-3355 








LMAHl 


= 177736 


#16-1475 


38-2169 


*81-3797 


44-2362 


45-2398 


68-3322 


68-3341 


79-3757 


79-3761 






80-3782 


80-3784 


81-3798 


81-3800 


*82-3834 


82-3835 


82-3837 


83-3853 






83-3860 


84-3879 


84-3887 


85-3906 


85-3913 


106-4216 








LMAL 


001306 


#21-1496 


*68-3323 


68-3327 


*68-3342 


68-3346 


68-3355 








LHALOW 


= 177734 


#16-1474 
79-3760 


38-2169 


42-2282 


44-2362 


45-2394 


45-2403 


68-3323 


68-3342 


79-3755 


LOADRS 


= 177740 


#17-1489 


















LOEFLG 


004312 


42-2266 
*75-3586 


*42-2295 
*76-3599 


#42-2302 
90-4071 


44-2329 
*90-4091 


*44-2373 


*70-3474 


*71-3490 


*72-3511 


*74-3568 


LOOP 


010606 


54-2730 


#54-2732 


95-4103 














LOWEST 


001256 


#21-1496 
79-3748 


42-2275 
79-3766 


44-2339 
81-3803 


*64-3158 
87-3977 


64-3159 
90-4075 


67-3254 


68-3289 


68-3292 


73-3J51 


LREGL 


001300 


#21-1496 


42-2274 


44-2335 


44-2383 


*67-3258 


67-3260 


68-3288 


79-3752 


90-4077 


LREGU 


001302 


#21-1496 
90-4076 


42-2273 


44-2334 


44-2385 


44-2380 


*67-3260 


*67-3261 


73-3545 


79-3753 


MAINT 


= 177750 


#16-1466 


#17-1489 


*50-2499 


*50'-2536 












MAPADD 


004106 


#42-2266 


71-3492 


75-3587 














MAPHO 


= 170202 


#17-1489 


















MAPHOO 


= 170202 


#17-1489 


17-1489 


56-2855 














MAPH01 


= 1702U6 


#17-1489 


17-1489 
















MAPH02 


= 170212 


#17-1489 


17-1489 
















MAPH03 


= 170216 


#17-1489 


17-1489 
















MAPH04 


= 170222 


#17-1489 


17-1489 
















MAPH05 


= 170226 


#17-1489 


17-1489 
















MAPH06 


= 170232 


#17-1489 


17-1489 
















MAPH07 


= 170236 


#17-1489 


17-1489 
















MAPHl 


= 170206 


#17-1489 


















MAPH10 


= 170242 


#17-1489 


















MAPHl 1 


= 170246 


#17-1489 


















MAPHl 2 


= 170252 


#17-1489 


















MAPH13 


= 170256 


#17-1489 


















MAPHl 4 


= 170262 


#17-1489 


















MAPHl 5 


= 170266 


#17-1489 


















MAPH16 


= 170272 


#17-1489 


















MAPHl 7 


= 170276 


#17-1489 


















MAPH2 


= 170212 


#17-1489 


















MAPH20 


= 170302 


#17-1489 


















MAPH21 


= 170306 


#17-1489 


















MAPH22 
MAPH23 


= 170312 


#17-1489 


















= 170316 


#17-1489 


















MAPH24 


= 170320 


#17-1489 


















MAPH25 


= 170326 


#17-1489 


















MAPH26 


= 170332 


#17-1489 


















MAPH27 


= 170336 


#17-1489 


















MAPH3 


= 170216 


#17-1489 


















MAPH30 


= 170342 


#17-1489 


















MAPH31 


= 170346 


#17-1489 



















CKKUAE CREATED BY 

SYMBOL CROSS REFERENCE 

SYMBOL VALUE 

MAPH32 = 170352 

MAPH33 = 170356 

MAPH34 = 170362 

MAPH35 = 170366 

MAPH36 = 170372 

MAPH37 = 170376 

MAPH4 = 170222 

MAPH5 = 170226 

MAPH6 = 170232 

MAPH7 = 170236 

HAPLO = 170200 



MAPLOO 


s 


170200 


MAPI CI 


= 


17020A 


nAPL02 


= 


170210 


MAPL03 


= 


1702H 


MAPLOA 


=: 


170220 


MAPL05 


= 


17022A 


MAPL06 


=: 


170230 


MAPL07 


r 


17023A 


MAPL1 


= 


17020A 


MAPLIO 


= 


1702AC 


MAPL11 


— 


170^44 


HAPL12 


= 


170<.':;0 


MAPL13 


^ 


170254 


MAPLU 


r 


170260 


MAPL15 


= 


170264 


MAPL16 


= 


170270 


MAPLi7 


r 


170274 


MAPL2 


= 


170210 


MAPL20 


^ 


170300 


MAPL21 


= 


170304 


MAPL22 


= 


170310 


MAPL23 


= 


^70314 


MAPL2A 


— 


170320 


MAPL25 


s 


170324 


MAPL26 


= 


170330 


MAPL27 


s 


170334 


MAPL3 


= 


170214 


MAPL30 


=; 


170340 


MAPL31 


— 


170344 


MAPL32 


s 


170350 


MAPL33 


= 


170354 
170360 


MAPL34 


= 


MAPL35 


•^ 


1 70364 
1 70370 
170374 


MAPL36 


w 


MAPL37 


= 


MAPLA 


= 


1 70220 


MAPL5 


~ 


170224 


HAPL6 


= 


1 70230 


MAPL7 


= 


1 7025^ 


MASKI 




005776 



34-201 5 56-2846 56-2852 57-2880 57-2888 



34-2008 55-2758 55-2776 *59-2956 59-2970 *59-2972 59-2983 *59-2985 



17-1489 
17-1489 
17-1489 
17-1489 
17-1489 
17-1489 
17-1489 
17-1489 



56-2811 
68-3293 



57-2878 
68-3377 



12 
MACRO ON 11-JAN-82 AT 11:32 PAGE 8 

SEQUENCE 146 

CREF V01 
REFERENCES 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 

63-3119 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 
#17-1489 

50-2548 #52-2604 *56-2812 56-2825 *56-2856 



E 13 

CKKUAE CREATED BY MACRO ON 11-JAN-82 AT 11 :32 PAGE 22 

SEQUENCE 160 
MACRO CROSS REFERENCE CREF V01 

MACRO NAME REFERENCES 

.$EOP #16-475 95-4103 

.SERRO #16-863 #93-4099 

.$POWE #16-1462 #102-4120 

.$RtAD #16-1461 100-4113 

.tSAVE #16-1461 96-4105 

.SSCOP #16-1042 92-4097 

■STRAP #16-1462 #101-4115 

.STYPD #16-1461 #99-4111 

.$TYPE #16-1461 97-4107 

.$TYPO #16-1461 98-4109 

-1170 #16-1459 17-1489 



CKKUAE 



CREATED BY MACRO ON 11-JAN-82 AT 



SYMBOL CROSS REFERENCE 
SYMBOL VALUE 



PRO 


= 000000 


PR1 


- 000040 


PR2 


= 000100 


PR3 


= 0001AO 


PRA 


= 000200 


PR5 


= 0002AO 


PR6 


= 000300 


PR7 


= 000340 


PS 


= 177776 


PSW 


= 177776 


PTMP2 


005000 


PWRMSG 


023774 


PWRVEC 


= 000024 


RDCHR 


= 104406 


RDLIN 


= 104407 


RDOCT 


= 104415 


RELC22 


011672 


RESREG 


= 104412 


RGSVEC 


= 000010 


RETRY 


001360 


RSIZE 


001356 


RIO 


=XO0OOOO 


R11 


=:X000001 


R12 


=X000002 


R13 


=X000003 


R1A 


=%000004 


R15 


=31000005 


R3STAK 


004314 


R6 


=X000006 


R7 


=!i;000007 


SAVREG 


= 104411 


SCOPE 


= 000004 


SDPARO 


= 172260 


SDPAR1 


= 172262 


SDPAR2 


= 172264 


SDPAR3 


= 172266 


SDPARA 


= 172270 


SDPAR5 


= 172272 


SDPAR6 


= 172274 


SDPAR7 


= 172276 


SDPDRO 


= 172220 


SDPDR1 


= 172222 


SDPDR2 


= 172224 


SDPDR3 


= 172226 


SDPDRA 


= 172230 


SDPDR5 


= U22Z2 


SDPDR6 


= 172234 



REFERENCES 

70-3472 

80-3778 

*1 7-1 489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

42-2287 

102-4120 

#17-1489 

55-2767 

51-2570 

#16-1476 

57-2916 

30-1937 

#17-1489 

#21-1496 

#21-1496 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

42-2270 

#17-1489 

#17-1489 

30-1914 

#17-1489 

70-3472 

79-3724 

95-4103 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 



71-3489 
81-3796 



17-1489 

44-2366 
#102-4121 

54-2656 

100-4113 
#101-4115 

54-2706 
#58-2920 

31-1959 
*54-2661 
*92-4097 
*44-2378 



#43-2309 
*50-2533 

31-1947 
55-2753 
71-3489 
80-3778 



11:32 PAGE 10 
SEQUENCE 148 

CREF V01 



F 12 



72-3504 
82-3833 



74-3567 
83-3846 



75-3584 
84-3873 



76-3598 
85-3900 



77-3633 
87-3972 



78-3689 
88-4015 



79-3724 



*54-2642 

#45-2394 

54-2656 
#101-4115 



*102-4120 *102-4120 *102-4120 *102-4120 *102-4120 *102-4120 



^101-4115 #101-4118 



#101-4115 
54-2667 



103-4124 
*54-2667 



*50-2533 

#101-4115 
56-2808 
72-3503 
81-3796 



103-4124 
57-2876 
73-3523 
82-3833 



59-2952 
74-3567 
83-3846 



60-3011 
75-3584 
84-3873 



62-3087 
76-3598 
85-3900 



68-3280 
77-3633 
87-3972 



69-3411 
78-3689 
88-4015 















6 12 










CKKUAE 


CREATED BY 


MACRO ON 11 


-JAN-82 M 


11:32 


PAGE 11 




















SEQUENCE 149 












SYMBOL 


CROSS REFERENCE 








CREF V01 












SYMBOL 


VALUE 


REFERENCES 


















SDPDR7 


= 172236 


#17-1A89 


















SIPARO 


= 1722A0 


#17-1A89 


















SIPAR1 


^ 1722A2 


#17-1A89 


















SIPAR2 


= 1722AA 


#17-1A89 


















SIPAR3 


= 1722A6 


#17-1A89 


















SI PARA 


= 172250 


#17-1A89 


















SIPAR5 


= 172252 


*17-1A89 


















SIPAR6 


:= 17225A 


#17-1A89 


















SI PAR? 


= 172256 


#17-1A89 


















SIPDRO 


= 172200 


J«f17-1A89 


















SIP0R1 


= 172202 


#17-1A89 


















SIPDR2 


= 172204 


#17-1A89 


















SIPDR3 


= 172206 


*17-1A89 


















SIPORA 


= 172210 


^17-1A89 


















SIPDR5 


= 172212 


(('17-1A89 


















SIPDR6 


= 17221 A 


*17-1A89 


















SIP0R7 


=- 172216 


#17-1A89 


















SI2EHI 


= 177762 


#17-1A89 


















SI2EJ0 


0127AA 


60-3026 


62-3089 


62-3104 


#63-3118 


87-3981 










SI2EJ1 


0131 5A 


j|f6A-3157 


















SIZEJ2 


013A02 


#65-3199 


















SIZELO 


= 177760 


#17-1A89 


















SPECST 


006002 


#52-2606 


63-3121 


63-3126 


66-3234 


66-3237 










SRO 


= 177572 


#17-1A89 


















SRI 


= 17757A 


#17-1489 


















SR2 


= 177576 


#17-1A89 


















SR3 


= 172516 


#17-1489 


















SSP 


=X000006 


#17-1489 


















STACK 


= 001100 


#17-1489 


17-1489 


17-1489 


17-1489 


54-2648 


54-2666 








START 


010000 


18-1492 


#54-2642 


63-3147 


102-4120 












STKLMT 


= 17777A 


#17-1489 


















SUPSTK 


= 000700 


#17-1489 


















SWR 


001136 


#21-1496 


29-1800 


42-2284 


44-2364 


46-2429 


*54-2689 


*5A-2691 


*5A-2697 


*54-2702 






•54-2731 


55-2781 


56-2834 


57-2909 


59-2988 


61-3060 


68-3320 


68-3339 


68-3349 






69-3456 


73-3526 


77-3647 


78-3690 


78-3697 


81-3823 


83-386A 


8A-3891 


85-391 7 






87-3974 


90-4078 


92-4097 


92-4097 


92-4097 


92-4097 


92-4097 


93-4099 


93-4099 






93-4099 


93-4099 


93-4099 


95-4103 


102-4120 


102-4120 








SWREG 


000176 


#18-1492 


















SWO 


= 000001 


#17-1489 


















SWOO 


= 000001 


#17-1489 


17-1489 
















SU01 


= 000002 


#17-1489 


17-1489 
















SU02 


= OOOOOA 


#17-1489 


17-1489 
















SW03 


= 000C10 


#17-1489 


17-1489 
















SUOA 


= 000020 


#17-1489 


17-1489 
















SW05 


= OOOOAO 


#17-1489 


17-1489 
















SU06 


= 000100 


#17-1489 


17-1489 
















SU07 


= 000200 


#17-1489 


17-1489 
















SW08 


= OOOAOO 


#17-1489 


17-1489 
















SW09 


= 001000 


#17-1489 


17-1489 
















SW1 


= 000002 


#17-1489 


















SWIO 


= 002000 


#17-1489 


















swn 


= OOAOOO 


#17-1489 



















CKKUAE 

SYMBOL 

SYMBOL 

SW12 

SW13 

SU14 

SW15 

SU2 

SU3 

SU4 

SU5 

SU6 

SW7 

SU8 

SU9 

SYSTID 

TBIT 

TBI TO 

TBITOF 

TBITR 

TBITRE 

TBITVE 

TCPMRA 

TIMEOU 

TIMOUT 



CREATED BY MACRO ON 11-JAN-82 AT 



CROSS REFERENCE 
VALUE 
= 010000 
= 020000 
= 040000 
= 100000 
= 000004 
= 000010 
= 000020 
= 000040 
= 000100 
= 000200 
= 000400 
= 001000 
-■ 177764 
= 000020 
= 104413 

002726 
= 104414 

002754 
= 000014 

004416 

003030 
= 000020 



TKVEC 


= 000060 


T0FLA6 


003032 


TOHSG 


006261 


TPVEC 


= 000064 


TRAPVE 


= 000034 


TRTVEC 


= 000014 


TSTLOC 


003474 


TST1 


010676 


Tsno 


014616 


TST11 


015072 


TST12 


015140 


TST13 


015174 


TST14 


015334 


Tsns 


015362 


TST16 


015420 


TST17 


015450 


TST2 


011122 


TST20 


015610 


TST21 


015744 


TST22 


016220 


TST23 


016266 


TST24 


016474 


TST25 


016540 


TST26 


016702 


TST27 


017036 


rfJ3 


011444 


TST30 


017164 


TST31 


017412 


TST32 


= 021576 



REFERENCES 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#32-1977 

#101-4116 

#32-1978 

58-2920 

#33-1993 

#17-1489 

#44-2329 

#35-2027 

#16-1460 

62-3098 

#17-1489 

#35-2028 

#53-2621 

#17-1489 

#17-1489 

#17-1489 

#38-2149 

54-2669 

68-3280 

69-3411 

70-3472 

71-3489 

#74-3567 

74-3567 

75-3584 

76-3598 

55-2753 

77-3633 

73-3529 

79-3724 

80-3778 

81-3796 

82-3833 

83-3846 

84-3873 

56-2808 

78-3711 

87-3972 

#87-4008 



11:32 PAGE 12 
SEQUENCE 150 

CREF vol 



H 12 



29-1800 

93-4099 

32-1978 

101-4116 

73-3525 

101-4117 

54-2656 

72-3514 

55-2754 

35-2053 

63-3137 

*35-2046 
66-3236 



32-1981 



63-3138 
54-2670 
68-3399 
69-3428 
#71-3489 
#72-3503 

#75-3584 

#76-3598 

#77-3633 

55-2790 

77-3645 

77-3641 

#80-3778 

80-3783 

81-3806 

82-3836 

#84-3873 

#85-3900 

56-2851 

85-3900 

87-4001 

88-4015 



54-2656 
76-3600 

59-2962 
64-3179 



54-2655 54-2656 



64-3180 
#55-2753 
#69-34 1 1 

69-3460 



#56-2808 
77-3648 
78-3689 

#81-3796 
#82-3833 
#83-3846 



56-2853 
#87-3972 
#88-4015 



33-1994 



95-4103 #101-4117 



59-2967 
65-3209 



59-2977 
68-3312 



59-2990 
90-4082 



60-3017 
90-4088 



60-3032 60-3044 



*35-2058 *35-2060 *54-2741 *93-4099 



65-3210 
#70-3472 



81-3817 81-3820 



77-3654 
#79-3724 



#78-3689 



#57-2876 



CKKUAE 


CREATED BY 


MACRO ON 11-JAN-82 AT 


11:32 


PAGE 13 


I 12 


















SEQUENCE 151 












SYMBOL 


CROSS REFERENCE 








CREF vol 












SYMBOL 


VALUE 


REFERENCES 


















TST4 


01 1 762 


57-2876 


#59-2952 
















TST5 


012242 


59-2952 


#60-3011 
















TST6 


012630 


60-3011 


61-3071 


#62-3087 














TST7 


013712 


#68-3280 


















TYPDAT 


= 002244 


#29-1832 


66-3231 
















TYPDS 


= 104405 


29-1846 


29-1886 


66-3239 


87-4006 


95-4103 


95-4103 


#101-4115 






TYPE 


= 104401 


29-1796 


29-1813 


29-1817 


29-1819 


29-1824 


29-1826 


29-1855 


29-1888 


30-1934 






31-1957 


54-2673 


54-2693 


54-2699 


54-2705 


54-2713 


55-2766 


55-2769 


55-2772 






66-3226 


66-3232 


66-3233 


66-3236 


66-3240 


66-3245 


87-4005 


87-4007 


93-4099 






93-4099 


95-4103 


95-4103 


95-4103 


97-4107 


98-4109 


99-4111 


100-4113 


100-4113 






100-4113 


#101-4115 


102-4120 














TYPOC 


= 104402 


29-1782 


29-1840 


#101-4115 














TYPON 


= 104404 


#101-4115 


















TYPOS 


= 104403 


29-1879 


#101-4115 
















TYPVAD 


002542 


29-1863 


#30-1914 
















UBADDR 


002650 


29-1871 


#31-1947 
















UBMAVA 


006125 


#52-2617 


87-4005 
















UBMEND 


006174 


#52-2619 


87-4007 
















UBMHI 


001264 


#21-1496 


*64-3165 


*64-3166 


•65-3219 


81-3815 


88-4060 








UBMLOW 


001262 


#21-1496 


*64-3162 


*65-3199 


•65-3200 


81-3810 


87-3998 


88-4018 






UBMSU 


015236 


#73-3523 


















UBH24L 


001310 


#21-1496 
*68-3308 


*42-2278 
•68-3311 


42-2279 
*70-3476 


42-2286 
•72-3513 


42-2292 


•44-2342 


44-2371 


46-2436 


•63-3134 


UBM2AP 


001314 


#21-1496 


*68-3300 


*68-3304 


68-331 1 












UBM24U 


001312 


#21-1496 


*44-2344 


44-2372 


46-2434 


•63-3135 


•68-3282 


•70-3475 


•71-3491 


•72-3512 


UBRHI 


001274 


#21-1496 


52-2598 


•64-3163 


•64-3164 


•65-3220 


•65-3221 


87-3992 






U6RL0U 


001272 


#21-1496 


52-2598 


•64-3161 


•65-3201 


87-3993 










UDPARO 


= 177660 


#17-1489 


















UDPAR1 


= 177662 


#17-1489 


















UDPAR2 


= 177664 


#17-1489 


















UDPAR3 


= 177666 


#17-1489 


















U0PAR4 


= 177670 


#17-1489 


















UDPAR5 


= 177672 


#17-1489 


















UDPAR6 


= 177674 


#17-1489 


















UDPAR7 


= 177676 


#17-1489 


















UDPDRO 


= 177620 


#17-1489 


















UDPDR1 


= 177622 


#17-1489 


















UDP0R2 


= 177624 


#17-1489 


















UDPDR3 


= 177626 


#17-1489 


















UDPDRA 


= 177630 


#17-1489 


















U0PDR5 


= 177632 


#17-1489 


















UDP0R6 


= 177634 


#17-1489 


















UDPDR/ 


= 177636 


#17-1489 


















UIPARO 


= 177640 


#17-1489 


















UIPAR1 


= 177642 


#17-1489 


















UIPAR2 


= 177644 


#17-1489 


















UIPAR3 


= 177646 


#17-1489 


















UIPAR4 


= 177650 


#17-1489 


















UIPAR5 


= 177652 


#17-1489 


















U1PAR6 


= 17765^ 


#17-1489 


















UIPAR7 


= 177650 


#17-1489 


















UJPORO 


= 177600 


#17-1489 



















CKKUAE 

SYMBOL 

SYMBOL 

U1PDR1 

UIFDR2 

UlPdRZ 

UIPDRA 

UIPDR5 

UIPDR6 

UIPDR7 

USESTK 

USP 

YESMSG 

SAPTHD 

$ASTAT 

$ATYC 

SATYI 

$ATY3 

$ATY4 

SAUTOe 

S6ASE 

SBDADR 

S6DDAT 

$8RLL 

$CDU1 

$CDW2 

$CHARC 

$CKSUR 



CREATED BY MACRO ON 11-JAN-82 AT 



CROSS REFERENCE 

VALUE 

= 177602 

= 177604 

= 177606 

= 177610 

= 177612 

= 1776U 

= 177616 

= 000600 

=%000006 

013542 

020000 
= ****** 

021354 
021330 
021336 
021546 

001132 
020216 
001120 
001124 
001216 
020222 
020224 
022540 
= ****** 



SCLR.T 


022014 


SCMTAG 


001100 


$CM1 


= 000006 


$CH2 


= 000014 


$CM3 


^ 000006 


$CM4 


= C00007 


SCNTLG 


C23471 


SCNTLU 


023464 


$CPUOP 


020170 


$CRLF 


001223 


$D8LK 


023206 


$0620 


024040 


SDDUG 


020226 


$DDW1 


020230 


$DDW10 


020252 


SDDU1 1 


020254 


$D0W12 


020256 


SD0W13 


020260 


SDDU14 


020262 


SDDWIS 


020264 



REFERENCES 

*1 7-1 489 

/'17-1489 

#17*1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

64-3169 

89-4067 

94-4101 

94-4101 

#94-4101 

#94-4101 

93-4099 

#21-1496 

#91-4095 

#21-1496 

#21-1496 

#21-1496 

#91-4095 

#91-4095 

*97-4107 

101-4115 

95-4103 

#21-1496 

#21-1496 

#21-1496 

#21-1496 

#21-1496 

#21-1496 

#21-1496 

#21-1496 

#21-1496 

#21-1496 

#21-1496 

#100-4113 

#100-4113 

#91-4095 

#21-1496 

93-4099 

99-4111 

29-1852 

63-3118 

38-2152 

#91-4095 

#91-4095 

#91-4095 

#91-4095 

#91-4095 

#91-4095 



11:32 PAGE 14 

SEQUENCE 152 

CREF V01 



J 12 



#66-3224 

#89-4067 

94-4101 

#94-4101 

97-4107 
#94-4101 



93-4099 93-4099 



*97-4107 97-4107 



#95-4103 
54-2643 
21-1496 
21-1496 

21-1496 
21-1496 

21-1496 
21-1496 
21-1496 
21-1496 



29-1813 
93-4099 
99-4111 
30-1931 
#91-4095 
38-2154 



54-2644 
21-1496 
21-1496 

21-1496 
21-1496 

21-1496 
21-1496 
21-1496 
21-1496 



29-1819 

95-4103 

#99-4111 

31-1954 

#91-4095 



93-4099 
*97-4107 



#21-1496 
#21-1496 

#21-1496 
#21-1496 



#21-1496 
#21-1496 
#21-1496 



29-1826 

97-4107 

#103-4124 



#97-4107 



21-1496 
21-1496 

21-1496 
21-1496 



21-1496 
21-1496 



66-3232 
97-4107 



21-1496 
21-1496 

21-1496 
21-1496 



21-1496 
21-1496 



66-3233 
97-4107 



#21-1<f^3 
#21-1496 

#21-1496 
#21-1496 



#21-1496 
#21-1496 



66-3240 
100-4113 



21-1496 
21-1496 

21-1496 
21-1496 



21-1490 
21-1496 



66-3245 
100-4113 



21-1496 
21-1496 

21-1496 
21-1496 



21-1496 
21-1496 



93-4099 



CKKUAE 

SYMBOL 

SYMBOL 

$DDW2 

$DDW3 

SDDW4 

SDDU5 

$DDU6 

S0DW7 

SDDU8 

$D!)W9 

SDEVCT 

SDEVM 

SDOAGN 

SDTBL 

SENDAD 

SENDCT 

SENULL 

$ENV 

SENVM 

$EOP 

SEOPCT 

SERFLG 

$ERMAX 
$ERROR 
SERRPC 



SERRTB 
SERTTL 

SESCAP 

SETABL 

SETEND 

SFATAL 

$FFLG 

SFILLC 

SFILLS 

SGDADR 

SGDDAT 

$GEU3 

SGTSWR 

$HD 

SHIBTS 

SHIOCT 

$ICNT 

SJLLUP 

SINTAG 

SITEMB 

tlF 

$LFLG 

SLOOP 

SLPADR 



CREATED BY MACRO ON 11-JAN-82 AT 



CROSS REFERENCE 
VALUE 
020232 
020234 
020236 
020240 
020242 
020244 
020246 
020250 
020152 
020220 
022034 
023176 
022024 
021644 
022100 
020162 
020163 

021576 
021636 
001101 

001113 
020704 
001114 



001366 
001110 

001214 
020162 
020266 
020144 
021574 
001154 
001153 
001116 
001122 

021776 

= ****** 

= 000000 
020000 
005736 
001102 
023766 
001133 
001112 
001224 
021573 
022072 
001104 



REFERENCES 

#91-4095 

#91-4095 

#91-4095 

#91-4095 

#91-4095 

#91-4095 

#91-4095 

#91-4095 

#91-4095 

#91-4095 

95-4103 

99-4111 

19-1494 

54-2657 

#95-4103 

48-2459 

48-2461 

97-4107 

87-3976 

*54-2657 

#21-1496 

93-4099 

#21-1496 

54-2655 

#21-1496 

106-4211 

106-4222 

#22-1496 

#21-1496 

93-4099 

#21-1496 

#91-4095 

89-4067 

#91-4095 

*94-4101 

#21-1496 

#21-1496 

#21-1496 

#21-1496 

#95-4103 

101-4115 

16-1485 

#89-4067 

*51-2590 

#21-1496 

102-4120 
#21-1496 
#21-1496 
#21-1496 
*94-4101 
95-4105 
#21-1496 



95-4103 
#99-4111 

93-4099 
#95-4103 

49-2474 

49-2476 

87-3985 

#95-4103 

92-4097 

93-4099 

*54-2659 

#93-4099 

29-1781 

106-4214 

106-4223 

29-1809 

*55-2791 

93-4099 

*54-2658 

#91-4095 

*94-4101 

*94-4101 

97-4107 

97-4107 



11:32 PAGE 15 
SEQUENCE 153 

CREF vol 



K 12 



95-4103 
#95-4103 



55-2761 
54-2700 

87-4008 

95-4103 

*92-4097 

92-4097 

29-1900 
106-4215 
106-4224 
29-1814 

*56-2844 
95-4103 

^92-4097 



94-4101 
97-4107 
97-4107 



16-1485 16-1485 



^95-4103 



#91-4095 
54-2729 

88-4057 

92-4097 

*92-4097 

*93-4099 
106-4216 
106-4225 

*57-2917 
95-4103 
93-4099 



*94-4101 
97-4107 



#51-2595 
*92-4097 
102-4120 

29-1779 

93-4099 

#94-4101 

#95-4103 

*47-2449 



92-4097 *92-4097 
#102-4120 



*93-4099 
93-4099 



93-4099 
97-4107 



93-4099 
77-3642 

#95-4103 

92-4097 

92-4097 

*93-4099 
106-4217 
106-4226 

*61-3067 

*95-4103 

93-4099 



#94-4101 



94-4101 
78-3692 



*92-4097 

92-4097 

93-4099 

106-4218 

106-4227 

*68-3400 
93-4099 



94-4101 
#91-4095 



97-4107 
94-4101 



97-4107 



92-4097 92-4097 *93-4099 



93-4099 

106-4219 

106-4228 

*69-3461 

93-4099 



93-4099 

106-4220 

106-4229 



106-4208 
106-4221 
106-4230 



*88«4048 *93-4099 



92-4097 92-4097 



93-4099 *93-4099 93-4099 
97-4107 100-4113 100-4113 



93-4099 93-4099 
100-4113 



*54-2669 *92-4097 *92-4097 92-4097 92-4097 92-4097 



I 10 



CKKUAE 


CREATED BY 


MACRO ON 11-JA.g-82 AT 


11:32 


PAGE 16 


L 12 


















SEQUENCE 154 












SYMBOL 


CROSS REFERENCE 








CREF vol 












SYMBOL 


VALUE 


REFERENCES 


















$LPERR 


001106 


JV21-1496 


*42-2272 


*44-2340 


*47-2445 


*54-2670 


*55-2779 


-r55-2788 


*56-2810 


•56-2836 






*56-2843 


*56-2854 


*61-3054 


*63-3136 


*64-3170 


*65-3202 


*81-3808 


*87-3981 


92-4097 






^92-4097 


92-4097 


92-4097 


93-4099 












SMADRl 


020174 


^91-40')5 


















$MA0R2 


020200 


*91-4095 


















$MADR3 


020204 


^91-4095 


















$MADR4 


020210 


;i^91-4095 


















$MA1L 


020142 


89-4067 


89-4067 


#91-4095 


92-4097 


93-4099 


97-4107 








$MA«S1 


020172 


#91-4095 


















$MAMS2 


020176 


^9^-\09S 


















$MAMS3 


020202 


A91-4095 


















tMAMS4 


020206 


/^91-4095 


















$MBADR 


020002 


#89-4067 


















$MFLG 


021572 


*94-4101 


94-4101 


*94-4101 


#94-4101 












SMNEW 


023507 


#100-4113 


















SMSGAD 


020156 


#91-4095 


*94-4101 


94-4101 














$«SGLG 


020160 


#91-4095 


*94-4101 
















$MS6TY 


020142 


*35-2030 
*94-4101 


A36-2085 


*37-2124 


*54-2712 


*55-2763 


#91-4095 


94-4101 


*94-4101 


94-4101 


SWSWR 


023476 


#100-4113 


















$MTYP1 


020173 


#91-4095 


















$MTYP2 


020177 


#91-4095 


















5MTYP3 


020203 


#91-4095 


















$MTYP4 


020207 


#91-4095 


















SMXCNT 


020676 


92-4097 


92-4097 


92-4097 


#92-4097 












$NULt. 


001152 


#21-1496 


97-4107 


97-4107 


97-4107 












SNWTST 


= 000001 


#54-2753 


54-2753 


#55-2/53 


55-2753 


#55-2808 


55-2808 


#56-2808 


56-2808 


#56-2876 






56-2876 


#57-28?6 


57-2876 


#58-2952 


58-2952 


#59-2952 


59-2952 


#59-3011 


59-3011 






.^'60-301 1 


60-3011 


#61-3087 


61-3087 


#62-3087 


62-3087 


#67-3280 


67-3280 


#68-3280 






68-3280 


#68-3411 


68-3411 


#69-3411 


69-3411 


#69-3472 


69-3472 


#70-3472 


70-3472 






#70-3489 


70-348V 


#71-3489 


71-3489 


#71-3503 


71-3503 


#72-3503 


72-3503 


#73-3567 






73-3567 


#74-3567 


74-3567 


#74-3584 


74-3584 


#75-3584 


75-3584 


#75-3598 


75-3598 






#76-3598 


76-3598 


#76-3633 


76-3633 


#77-3633 


77-3633 


#77-3689 


77-3689 


#78-3689 






78-3689 


#78-3724 


78-3724 


#79-3724 


79-3724 


#79-3778 


79-3778 


#80-3778 


80-3778 






#80-3796 


80-3796 


#81-3796 


81-3796 


#81-3833 


81-3833 


#82-3833 


82-3833 


#82-3846 






82-3846 


#83-3846 


83-3846 


#83-3873 


83-3873 


#84-3873 


84-3873 


#84-3900 


84-3900 






#85-3900 


85-3900 


#86-3972 


86-3972 


#87-3972 


87-3972 


#87-4015 


87-4015 


#88-4015 






88-4015 


















lOCNT 


022766 


*98-4109 


*98-4109 


#98-4109 














^OCTVL 


024142 


103-4124 


#103-4124 
















$OWODE 


022770 


*98-4109 


*98-4109 


98-4109 


*98-4109 


*98-4109 


#98-4109 








iOVFR 


U20662 


92-4097 


92-4097 


92-4 J97 


92-4097 


#92-4097 










$PASS 


020150 


*54-2647 
*95-4103 


54"2677 
95-4103 


66-3224 
95-4103 


87-4000 
95-4103 


#91-4095 


92-4097 


92-4097 


92-4097 


*95-4103 


SPASTM 


020006 


#89-4067 


















SPWRAD 


023750 


#102-4120 


















$PWRDN 


023610 


54-2656 


#102-4120 


102-4120 














SPWRMG 


023744 


#102-4120 


















SPURUP 


023662 


102-4120 


#102-4120 
















SQUES 


001222 


#?1-1496 


93-4099 


93-4099 


97-4107 


97-4107 


100-4113 


100-4113 


100-4113 




SRDCHR 


023216 


#100-4113 


101-115 


101-4115 














SRDOEC 


= ****** 


101-4115 



















CKKUAE 


CREATED BY 


MACRO ON 11-JAN-82 AT 


11:32 


PAGE 17 


M 12 


















SEQUENCE 155 












SYMBOL 


CROSS REFERENCE 








CREF vol 












SYMBOL 


VALUE 


REFERENCES 


















SRDLIN 


023346 


^100-4113 


101-4115 


101-4115 














$RDOCT 


005630 


#51-2565 


101-4115 


101-4115 


101-4118 












SRDSZ 


= 000010 


#100-4113 


100-4113 
















$REGAD 


001156 


#21-1496 


















$REGO 


001160 


#21-1496 


*93-4099 


106-4226 














$REG1 


001162 


#21-1496 


*93-4099 


106-4216 














$REG2 


001164 


#21-1496 


*93-4099 


106-4217 


106-4223 


106-'i228 










$REG3 


001166 


#21-:496 


*93-4099 


106-4222 


106-4228 












$REG4 


001170 


#21-1496 


*93-4099 


106-4222 














$REG5 


001172 


#21-1496 


*93-4099 


106-4230 














SkESRE 


022U2 


#96-4105 


101-4115 
















SRTNAO 


022074 


#95-4103 


















SRTRN 


022070 


54-2656 


*54-2660 


*54-2665 


95-4103 


i((95-4103 










$R2A 


= ****** 


101-4115 


















$SAVRE 


022104 


#96-4105 


101-4115 


101-4115 














$SAVR6 


023772 


*1O2-4120 


102-4120 


*1 02-41 20 


*102-4120 


#102-4120 










SSCOPE 


020266 


54-2655 


#92-4097 
















SSETUP 


= 000037 


#18-1491 


18-1491 


#18-1491 


18-1491 


jVI 8-1491 


18-1491 


#18-1491 


18-1491 


#18-1491 






18-1491 


#18-1491 


92-4097 


9V4099 


93-4099 


93-4099 


93-4099 


95-4103 


95-4103 






100-4113 


100-4113 


102-4120 














$SSWR 


000176 


#28-1733 


54-2697 


54-2702 


54-2703 


*54-2707 


*54-2709 








$STUP 


= Miiri 


#18-1491 


#18-1491 


18-1491 


#18-1491 


#18-U91 


18-1491 


#18-1491 


#18-1491 


18-1491 






#18-1491 


#18-1491 


18-1491 


#18-1491 


#18-1491 


18-1491 








SSVLAD 


020626 


92-4097 


#92-4097 
















SSVPC 


= 000204 


#19-1494 


19-1494 
















$SWR 


" 177400 


#16-1470 


16-1485 


16-1486 


16-1486 


16-1486 


16-1486 


16-1486 


16-1486 


16-1486 






16*1486 


21-1496 


21-1496 


21-1496 


55-2753 


56-2808 


57-2876 


59-2952 


60-3011 






62-3087 


68-3280 


69-3411 


70-3472 


71-3489 


72-3503 


74-3567 


75-3584 


76-3598 






77-3633 


78-3689 


79-3724 


80-3778 


81-3796 


82-3833 


83-3846 


84-3873 


85-3900 






87-3972 


86-4015 


92-4097 


92-4097 


92-4097 


92-4097 


92-4097 


92-4097 


92-4097 






92-4097 


92-4097 


92-4097 


92-4097 


92-4097 


92-4097 


92-4097 


92-4097 


92-4097 






92-4097 


92-4097 


92-4097 


92-4097 


93-4099 


93-4099 


93-4099 


93-4099 


93-4099 






93-4099 


93-4099 


93-4099 


93-4099 


93-4099 


93-4099 


95-4103 


95-4103 


95-4103 






95-4103 


95-4103 


102-4120 














SSWREG 


020164 


54-2731 


77-3644 


78-3694 


#91-4095 












$SW.^MK 


= 000340 


#16-1469 


16-1486 


16-1486 


16-1486 


16-1486 


16-1486 


16-1486 


16-1486 


16-1486 






16-1486 


92-4097 


92-4097 


92-4097 


92-4097 


92-4097 


92-4097 


92-4097 


92-4097 






92-4097 


92-'*097 


92-4097 














$TBIT 


022076 


*5':-2668 


*95-4103 


95-4103 


95-4103 


iSf95-4103 


*1 02-41 20 








$TESTN 


020146 


29-1900 


52-2598 


*87-3983 


#91-4095 


*92-4097 


*93 '099 


106-4205 


106-4206 


106-4207 






106-4208 


106-4209 


106-4210 


106-4211 


106-4212 


106-4213 


106-4214 


106-4215 


106-4216 






106-4217 


106-4218 


1C6-4219 


106-4220 


106-4221 


106-;?22 


106-4223 


106-4224 


106-4225 






106-4226 


106-4227 


106-4228 


106-4229 


106-4230 










STIMES 


001212 


#21-1496 


*47-2450 


*92-4097 


92-4097 


*92-4097 


92-4097 


92-4097 


*95-4103 




$TKB 


001144 


#21-1496 


97-4107 


97-4107 


97-4107 


97-4107 


100-4113 


100-4113 


100-4113 


100-4113 


$TKS 


001142 


#21-1496 
100-4113 


54-2644 


97-4107 


97-4107 


97-4107 


97-4107 


100-4113 


100-4113 


100-4113 


$TMPO 


001174 


#21-':496 


*38-2149 


38-2173 


*56-2820 


*56-2825 


*57-2881 


*57-2886 


57-2887 


57-2904 






*61-3048 


^63-3132 


64-3157 


64-3163 


64-3186 


65-5201 


65-3220 


*68-3286 


*68-3352 






68-3370 


*68-3376 


*79-3?S< 


*79-3757 


*79-3758 


*83-3853 


83-3854 


83-3856 


*83-3860 






83-3861 


*84-3879 


84-3880 


*84-3882 


84-3883 


*84-3887 


84-3888 


*85-3906 


85-3907 






85-3909 


*85-3913 


85-3914 


106-4217 


106-4218 


106-4222 


106-4223 


106-4230 





CKKUAE 


CREATED BY 


MACRO ON 11-JAN-82 AT 


11:32 


PAGE 18 


N 12 


















SEQUENCE 156 












SYMBOL 


CROSS REFERENCE 








CREF V01 












SYMBOL 


VALUE 


REFERENCES 


















STMPI 


001176 


#21-1496 


*42-2286 


*42-2289 


*44-2369 


*48-2465 


*49-2480 


*61-3049 


106-4223 


106-4230 


STMP2 


001200 


#21-1496 


*42-2290 


*44-2368 


*45-2403 


*45-2404 


*45-2405 


45-2406 


*45-2406 


*59-2953 






59-2998 


*83-3854 


*83-3855 


83-3856 


83-3861 


*04-388O 


*84~3881 


Z(k-lZZl 


84-3888 






*85-3907 


*85-3908 


85-3909 


85-3914 












STMP3 


001202 


#21-1496 


*57-2894 


57-2895 


*68-3329 


68-3330 


106-4221 








STMPA 


001 20A 


#21-1496 


*88-4036 


*88-4041 


106-4225 












$TMP5 


001206 


#21-1496 
106-4219 


*41-2227 
106-4225 


41-2232 


41-2233 


*60-3028 


*60-3030 


61-3070 


61-3073 


*88-4042 


$TMP6 


001210 


#21-1496 


*60-3015 


*60-3023 


60-3028 












STN 


= 000032 


#16-1471 


16-1485 


54-2753 


55-2753 


55-2753 


55-2753 


#55-2753 


55-2790 


55-2f08 






56-2808 


56-2808 


56-2808 


#56-2808 


56-2851 


56-2853 


56-2876 


57-2876 


57-23/6 






57-2876 


#57-2876 


58-2952 


59-2952 


59-2952 


59-2952 


#59-2952 


59-3011 


60-3011 






60-3011 


60-3011 


#60-3011 


61-3071 


61-3087 


62-3087 


#62-3087 


67-3280 


68-3280 






68-3280 


68-3280 


#68-3280 


68-3399 


68-3411 


69-3411 


69-3411 


69-3411 


#69-3411 






69-3428 


69-3460 


69-3472 


70-3472 


70-3472 


70-3472 


#70-3472 


70-3489 


71-3489 






71-3489 


71-3489 


#71-3489 


71-3503 


72-3503 


#72-3503 


73-3567 


7(*-5567 


74-3567 






74-3567 


#74-3567 


74-3584 


75-3584 


75-3584 


75-3584 


#75-358^; 


75-3598 


76-3598 






76-3598 


76-3598 


#76-3598 


76-3o33 


77-3633 


77-3633 


77-3633 


#77-3633 


77-3645 






77-3648 


77-3654 


77-3689 


78-3689 


78-3689 


78-3689 


#78-3689 


78-3711 


78-3724 






79-3724 


79-3724 


79-3724 


#79-3724 


79-3778 


80-3778 


80-3778 


80-3778 


#80-3778 






80-3783 


80-3796 


81-3796 


81-3796 


81-3796 


#81-3796 


81-3806 


81-3833 


82-3833 






82-3833 


82-3833 


#82-3833 


82-3836 


82-3846 


83-3846 


83-3846 


83-3846 


#83-3846 






83-3873 


84-3873 


84-3873 


84-3873 


#84-3873 


84-3900 


85-3900 


85-3900 


85-39C0 






#85-3900 


86-3972 


87-3972 


87-3972 


87-3972 


#87-3972 


87-4001 


87-4015 


88-4015 






88-4015 


88-4015 


#88-4015 














STPB 


001150 


#21-1496 


97-4107 


97-4107 


97-4107 












$TP5LG 


001155 


#21-1496 


97-4107 


*^7-4107 


«» 7-41 07 












$TPS 


001 U6 


#21-1496 


97-4107 


97-4107 


97-4107 












STRAP 


023520 


54-2655 


#101-4115 
















$TRAP2 


023542 


#101-4115 


101-4115 
















$TRP 


= 000016 


#101-4115 


101-4115 


101-4115 


101-4115 


101-4115 


#101-4115 


101-4115 


101-4115 


101-4115 






101-4115 


#101-4115 


101-4115 


'101-4115 


101-4115 


101-4115 


#101-4115 


101-4115 


101-4115 






101-4115 


101-4115 


#101-4115 


101-4115 


101-4115 


101-4115 


101-4115 


#101-4115 


101-4115 






101-4115 


101-4115 


101-4115 


#101-4115 


101-4115 


101-4115 


101-4115 


101-4115 


r1f101-4115 






101-4115 


101-4115 


101-4115 


101-4115 


#101-4115 


101-4115 


101-4115 


101-4115 


101-4115 






#101-4115 


101-4115 


101-4115 


101-4115 


101-4115 


"101-4115 


101-4116 


101-4116 


101-4116 






101-4116 


#101-4116 


101-4117 


101-4117 


101-M17 


101-4117 


#101-4117 


101-4118 


101-4118 






101-4118 


101-4118 


#101-4118 














STRPAD 


023554 


101-4115 


#101-4115 
















$TSTM 


020004 


#89-4067 


















STSTNM 


001100 


#21-1496 


*47-2446 


47-2447 


*73-3524 


*73-3528 


*77-3640 


*78-3710 


*87-3982 


9c'-4097 






92-4097 


*92-4097 


92-4097 


92-4097 


92-4097 


9^-4097 


93-4099 


93-4099 


93-4099 






93-4099 


*95-4103 
















STTYJ^i 


023454 


100-4113 


100-4113 


100-4113 


#100-4113 












STYPBN 


= **«*»* 


101-4115 


















STYPDS 


^22112 


#99-4111 


101-4115 


101-4115 














STYPE 


022200 


94-4101 


#97-4107 


101-4115 


101-4115 












STYPEC 


022412 


97-4107 


97-4107 


97-4107 


#97-4107 












STYPEX 


022542 


97-4107 


97-4107 


97-4107 


#97-4107 












STYPOC 


022570 


#98-4109 


101-4115 


101-4115 














STYPON 


022604 


98-4109 


#98-4109 


101-4115 














STYPOS 


022544 


#98-4109 


101-4115 

















,J 



CKKUAE 


CREATED 


BY 


MACRO ON 11 


-JAN-82 AT 


B 
11:32 PAGE 19 
SEQUENCE 157 


SYMBOL 


CROSS REFERENCE 






CREF V01 


SYMBOL 


VALUE 
020154 




REFERENCES 






$UNIT 




#91-4095 
#89-4067 






SUNITM 


020010 








tUSUft 


8?8Jf^ 




#91-4095 






$VECT1 




#91-4095 






$VECT2 
IXOfF 


nSfiJlJ 




#91-4095 
97-4107 






= 6MW? 




97-4107 
97-4107 




SXON 




97-4107 


97-4107 100-4113 


$XTSTR 


OcOSf 2 




#92-4097 






$$GET4 


= 0QQQ01 
022767 




#95-410? 
*98-4109 


#95-4103 
*98-4109 


95-4103 

98-4109 #98-4109 


$0F1LL 




$40CAT 


s *ik***4 




92-4097 


93-4099 




.SASTA 


= «i***ik4r 




94-4101 


94-4101 




.$X 


= 020000 




#69-4067 


89-4067 




.$Y 


= 002026 




#28-1731 


28-1734 





13 



CKKUAE 


CREATED BY MAC 


MACRO CROSS REFERENCE 


MACRO NAME 


REFERENCES 


COMMEN 


#17-U89 


DONE 


#16-1346 
#17-1489 


ENDCOM 


ESCAPE 


#17-U89 


GETPRI 


#17-U89 



ON 11-JAN-82 AT 11;32 PAGE i 

SEQUENCE 151 



C 13 



CREF V01 



95-4103 

#95-4103 
GETSWR #17-1489 

MSG #80-3787 #81-3796 #81-3828 #82-3833 #82-3840 #83-3846 #83-3867 #84-3873 #84-3894 #85-3900 

#87-4009 #88-4015 

MSGl #54-^744 55-2753 

MSG11 #67-3262 68-3280 

MSGl 2 #68-3403 #69-3411 

MSG13 #69-3464 70-3472 

MSGl 4 #70-3479 71-3489 

MSGl 5 #71-3495 #72-3503 

MSG16 #73-3556 #74-3567 

MSGl 7 #74-3571 75-3584 

MSG2 #55-2794 #56-2808 

MSG20 #75-3590 76-3598 

MSG21 #76-3603 #77-3633 

MSG22 #77-3656 78-3689 

MS6220 #78-3712 79-3724 

MS6221 #79-3772 80-3778 

MSG23 #86-3961 #87-3972 

MSG4 #5^-2864 #57-2876 

MSG5 #58-2942 #59-2952 

MSG6 #59-2999 #60-3011 

MSG7 #61-3074 #62-3087 

MULT #17-1489 

NEWTST #16-1462 #17-1489 #54-2753 #55-2808 #56-2876 #58-2952 #59-3011 #61-3087 #67-3280 #68-3411 

*69-3472 #70-3489 #71-3503 #73-3567 #74-3584 #75-3598 #76-3633 #77-3689 #78-3724 #79-3778 

#80-3796 #81-3833 #82-3846 #83-3873 #84-3900 #86-3972 #87-4015 ^' ° ^ '^^^ ^'^"^ '^^ ^^^^ 

POP #17-1489 #94-4101 #94-4101 #96-4105 #99-4111 #102-4120 #102-4120 

PUSH #17-1489 94-4101 94-4101 94-4101 96-4105 99-4111 102-4120 102-4120 

REPORT #17-1489 

SAVTST #16-1384 #93-4099 

SETPRI #17-1489 

SETTRA #101-4115 101-4115 101-4115 101-4115 101-4115 101-4115 101-4115 101-4115 101-4115 101-4115 

101-4115 101-4116 101-4117 101-4118 

SETUP #17-1489 

V/i-lil ¥bI:Ws^ lltllll 'Atllll ',V?:lll] '''"''' '''-'''' '''''''' '''"'"' "''-'''' 

SKIPJ #16-1337 78-3711 

SLASH #17-1489 

SPACE #16-1343 #17-1489 

SSCOPE #16-1362 #92-4097 

STARS #17-1489 19-1494 $1-1496 21-14. J 29-1736 29-1776 30-1903 30-1913 31-1941 



'Xt^l li'llk^ 52-1966 32-1967 32-1969 32-1976 33-1984 33-1992 34-1998 

►-2019 35-2026 36-2065 36-2067 36-2069 36-2081 37-2113 37-2120 38-2141 

39-2177 39-2184 40-2191 40-|l98 41-2205 41-2219 42-2255 42-2265 44-232 

46-|a1Q 46-2424 47-2442 48-2453 48-2454 49-2470 50-2485 50-2546 51-2557 



!912 35-2026 36-2065 3$-?p§7 36-2Q$? 36-2081 37-21 1J 37-2120 38-2141 

IHIII 5§"i?2^ 56-2808 57-?876 5N5876 59-2952 59-5952 66-56lT 66-BqII 
62-3087 63-3107 63-3117 64-3152 64-3156 65-3192 65-3198 66-3223 67-3247 



;?:: 




CKKUAE 

MACRO CROSS 
MACRO NAME 



CREATED BY MACRO ON 11'JAN-82 AT 11:32 PAGE 21 

SEQUENCE 159 

CREF V01 



D 13 



SURSU 
TRACK 



TRACK1 



TRMTRP 

TYPBIN 

TYPDEC 

TYPNAM 

TYPNUM 

TYPOCS 

TYPOCT 

TYPTXT 

USER 

ZEROER 

$$CHRE 

SSCMTM 

S$ESCA 

$$NEWT 



$$SET 

$$SKIP 

-EQUIV 



.HEADE 
-SETUP 
.SWRHl 
.SWRLO 
-SACTl 
.$APTB 
■SAPTH 
.$APTY 
.$CATC 
.$CMTA 
.$DB20 



REFERENCE 

REFERENCES 

68-3280 

72-3505 

76-3598 

79-372A 

84-3873 

88-4015 

96-4105 

103-4124 

*1 7-1 489 

#16-1376 

74-3567 

84-3873 

#16-1379 

74-3567 

84-3873 

#101-4115 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#16-1459 

#16-1404 

#16-1352 

#20-1496 

#20-1496 

#17-1489 

#16-1462 

#69-3472 

.1'80-3796 

#101-4115 

#101-4115 

#17-1489 

#77-3654 

#16-1340 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

#16-1459 

#16-1459 

#16-1273 

#16-1486 

#16-1459 

#16-1463 

#16-1463 

#16-1463 

#16-1459 

#16-692 

#16-1462 



68-3280 
72-3508 
76-3598 
80-3778 
85-3900 
89-4067 
97-4107 



55-2753 
75-3584 
85-3900 
55-2753 
75-3584 
85-3900 



69-3411 
73-3519 
77-3633 
80-3778 
85-3900 
89-4067 
98-4109 



56-2808 
76-3598 
87-3972 
56-2808 
76-3598 
87-3972 



69-3411 
73-3521 
77-3633 
81-3796 
85-3920 
89-4067 
99-4111 



57-2876 
77-3633 
88-4015 
57-2876 
77-3633 
88-4015 



95-4103 95-4103 



#17-1489 
#21-1496 
#16-1394 
#21-1496 
#21-1496 

#17-1489 

#70-3489 

#81-3833 

#101-4115 

^101-4116 

#55-2790 

#80-3783 

16-1460 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

16-1485 

18-1491 

#16-1486 

16-148/ 

19-1494 

#91-4095 

#89-4067 

#94-4101 

18-1492 

#16-1459 

103-4124 



#95-4103 #95-4103 



#93-4099 
#21-1496 
#21-1496 

#54-2753 

#71-3503 

#82-3846 

#101-4115 

#101-4117 

#56-2851 

#81-3806 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 



#21-1496 
#21-1496 

#55-2808 

#73-3567 

#83-3873 

#101-4115 

#101-4118 

#56-2853 

#82-3836 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 



70-3472 
73-3531 
77-3633 
81-3796 
85-3926 
90-4070 
100-4113 



59-2952 
78-3689 

59-2952 
78-3689 



#21-1496 
#21-1496 

#56-2876 
#74-3584 
#84-3900 
#101-4115 

#61-3071 
#87-4001 
17-1489 
17-1489 
17-1489 
17-1489 
17-1489 
32-1977 



70-3472 
73-3543 
77-3633 
82-3833 
86-3929 
91-4095 
100-4113 



60-3011 
79-3724 

60-3011 
79-3724 



71-3489 
74-3567 
77-3633 
82-3833 
86-3960 
92-4097 
100-4113 



68-3280 
80-3778 

68-3280 
80-3778 



#21-1496 
#21-1496 

#58-2952 
#75-3598 
#86-3972 
#101-4115 



#21-1496 
#21-1496 

#59-3011 
#76-3633 
#87-4015 
#101-4115 



#68-3399 #69-3428 



17-1489 
17-1489 
17-1489 
17-1489 
17-1489 
72-3510 



17-1489 
17-1489 
17-1489 
17-1489 
17-1489 



71-3489 
74-3567 
78-3689 
83-3846 
87-3972 
93-4099 
101-4115 



69-3411 
81-3796 

69-3411 
81-3796 



#21-1496 

#61-3087 
#77-3689 

#101-4115 

#69-3460 

17-1489 
17-1489 
17-1489 
17-1489 
17-1489 



72-3503 
75-3584 
78-3689 
83-3846 
87-3972 
94-4101 
102-4120 



70-3472 
82-3833 

70-3472 
82-3833 



#67-3280 
#78-3724 

#101-4115 

#77-3645 

17-1489 
17-1489 
17-1489 
17-1489 
17-1489 



72-3503 
75-3584 
79-3724 
84-3873 
88-4015 
95-4103 
102-4120 



71-3489 
83-3846 

71-3489 
83-3846 



#68-3411 
#79-3778 

#101-4115 

#77-3648 

7-1489 
7-1489 
7-1489 
7-1489 
7-1489 



#20-1496 



CKKUAE CREATED BY MACRO ON 11-JAN-82 AT 11:32 PAGE 22 

SEQUENCE 160 
MACRO CROSS REFERENCE CREF V01 

MACRO NAME REFERENCES 

.$EOP #16-475 95-4103 

.SERRO #16-863 #93-4099 

.IPOWE #16-U62 #102-4120 

.SREAD #16-U61 100-4113 

.$SAVE #16"U61 96-4105 

.$SCOP #16-1042 92-4097 

•STRAP #16-1462 #101-4115 

.STYPO #16-1461 #99-4111 

.STYPE #16-1461 97-4107 

.STYPO #16-1461 98-4109 

.1170 #16-1459 17-1489 



E 13 



B 




UBI MAP 


C 




UBl MAP 


D 




UBI MAP 


E 




UBI MAP 


r 




UBI MAP 


G 




UBI MAP 


H 




UBI MAP 


1 




UBI MAP 


J 




UBI MAP 


K 




UBI MAP 


L 




UBI MAP 


M 




UBI MAP 


H 




UBI MAP 


B 


2 


UBI MAP 


C 


2 


UBI MAP 


D 


2 


UBI MAP 


E 


2 


L-BI MAP 


F 


2 


UBI MAP 


G 


2 


UBI MAP 


H 


2 


UBI MAP 


I 


2 


UBI MAP 


J 


2 


UBI MAP 


K 


2 


UBI MAP 


L 


2 


UBI MAP 


« 


2 


UBI MAP 


N 


2 


UBI MAP 


B 


3 


UBI MAP 


C 


3 


UBI MAP 


D 


3 


UBI MAP 


E 


3 


UBI MAP 


F 


3 


UBI MAP 


G 


3 


UBI MAP 


H 


3 


UBI MAP 


1 


3 


UBI MAP 


J 


3 


UBI MAP 


K 


3 


UBI MAP 


L 


3 


UBI MAP 


M 


3 


UBI MAP 


N 


3 


bQl MAP 


B 


4 


UBI MAP 


C 


4 


Uei MAP 


D 


4 


UBI MAP 


E 


4 


UBI MAP 


F 


A 


UBI MAP 


G 


-^ 


UBJ MAP 


M 


4 


UBI MAP 


1 


A 


UBI MAP 


J 


4 


UBI MAP 


K 


4 


UBI riAP 


L 


4 


UBI MAP 


M 


/* 


UBI MAP 


N 




UBI MAP 


B 


5 


UBI MAP 


C 


5 


UBI MAP 





5 


UBI MAP 


E 


5 


UBI MAP 


F 


5 


UBI MAP 


G 


5 


UBI MAP 


H 


5 


UBI MAP 


I 


5 


UBI MAP 



MACRO M 
MACRO M 
MACRO M 
MACRO PI 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO M 
MACRO r 
MACRO M 
MACRO « 
MACRO M 
MACRO M 
MACRO M 
MACRO f1 
MACRO M 
MACRO M 
MACRO n 
MACRO M 
MACRO M 
MACRO M 
MACRO W 





13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 


1 1 


13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 "1 




13 1 




13 1 




13 1 




13 1 




13 1 




]3 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 




13 1 


11 


13 1 



J 


5 


uei 


MAP 


MACRO 


K 


5 


U8I 


MAP 


MACRO 


L 


5 


UBI 


MAP 


MACRO 


M 


5 


UBI 


MAP 


MACRO 


N 


5 


UBI 


MAP 


MACRO 


6 


6 


UBI 


MAP 


MACRO 


C 


6 


U8I 


MAP 


MACRO 


D 


6 


UBI 


MAP 


MACRO 


E 


6 


UBI 


MAP 


MACRO 


F 


6 


U8I 


MAP 


MACRO 


G 


6 


U6I 


MAP 


MACRO 


H 


6 


UBI 


MAP 


MACRO 


I 


6 


UBI 


MAP 


MACRO 


J 


6 


UBI 


MAP 


MACRO 


K 


6 


UBI 


MAP 


MACRO 


L 


6 


UBI 


MAP 


MACRO 


M 


6 


UBI 


MAP 


MACRO 


N 


6 


U8I 


MAP 


MACRO 


B 


7 


UBI 


MAP 


MACRO 


C 


7 


UBI 


MAP 


MACRO 


D 


7 


UBJ 


MAP 


MACRO 


E 


7 


UBI 


MAP 


MACRO 


F 


7 


UBI 


MAP 


MACRO 


G 


7 


UBI 


MAP 


MACRO 


H 


7 


UBI 


MAP 


MACRO 


I 


7 


UBJ 


MAP 


MACRO 


J 


7 


UBI 


MAP 


MACRO 


K 


7 


UBI 


MAP 


MAC^O 


L 


7 


[JPil 


MAP 


MACRO 


M 


7 


UBI 


MAP 


MACRO 


N 


7 


UBI 


MAP 


MACRO 


E 


8 


UBI 


MAP 


MACRO 


C 


8 


UBI 


MAP 


MACRO 


D 


8 


'JBI 


MAP 


MACRO 


E 


R 


UBJ 


MAP 


MACRO 


F 


8 


UBJ 


MAP 


MACRO 


G 


8 


UBI 


MAP 


MACRO 


H 


8 


UBJ 


MAP 


MACRO 


1 


8 


UbJ 


MAP 


MACRO 


J 


8 


USI 


MAP 


MACRO 


K 


8 


UBI 


MAP 


MACRO 


L 


8 


UBJ 


MAP 
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